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I. INTRODUCTION 


A. PREFACE 


Look around and you will see evidence that computers have 
become part of our daily lives. Today, computers are common 
place 1n industry, government, science, politics, and even 
in our homes. AS more and more organizations use computers for 
their needs, it 1S necessary to use modern, systematic, and 
cost effective approaches for software solutions to their 
problems. In recent years these software solutions Nave clear-— 
ly been motivated By the database systems approach, which 1s 
widely used in most organizations. 

Database technology today, plays a central role in the 
computer world for the facilities and data handling capabi- 
lities they provide. 

During the last decade the cost of labor has been increa- 
sing steadily with direct consequence being the parallel 
increase of the software costs. Meanwhile the cost of computer 
hardware has decreased dramatically. As David Froenke puts it, 
‘The computer industry has developed the equivalent of a $2.50 
Rolls Royce that gets 2,000,000 miles per gallon CRef. 1: 
eee ae 

Thus , simply stated, software has become more expensive as 
computer hardware has become cheaper. In 1960, the ratio of 
hardware over software expenditures was approximately 80 
percent hardware cost to 20 percent software cost. By 1935 
the ratio was reversed. By 1990, software costs will account 
for more than 90 percent of the amount spent on computing 
systems (CRef. 2: p. Sl. 

The above considerations lead us to select systems that 
achieve the 6es5t (Utilisation or Si he fete ane and thus 
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motivated system designers to build advanced database systems 


in order to decrease software cost and obtain maximum benefit. 


B. COMPUTERS IN THE HELLENIC ARMY 


The leadership of the Hellenic Army, realizing the use- 
fulness of computers, introduced them into the Army in the 
197TO’s. Today, most of the tedious and error prone bureau- 
‘cratic manual apweteren eae are automated, and the computer is 
used efficiently in data processing and decision making. Of 
course there are a lot of procedures, especially in the area 
of personnel management, which have not been automated yet. 
One of these procedures which is still performed manually is 
the annual reassignment processing of officers in each Branch 
of the Hellenic Army General Staff (HAGS). The automation of 


this job constitutes the topic of this research. 


C. DATABASE SYSTEMS VS MANUAL SYSTEMS 


The top management in every organization, and in our case 
the Branch Directors of the HAGS, nmeed accurate and timely 
information in order to make fast and better informed 
decisions. 

Currently, all information required by the Director for 
scheduling and processing annual assignments of his officers 
1s handled manually by the staff of the Directorate. This 
results in tedious and time-consuming operations, which are 
sometimes inaccurate. 

Because of the complicated character of this job, and the 
continuous changes pertaining to personnel and the associated 


data, it is extremely difficult for the staff personnel £0 
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process this job. Further, the Branch Director frequently does 
not have the necessary information to make rapid decisions. 
The above problem could be overcome by developing and 
implementing an automated personnel database system. 
The development and implementation of a personnel database 
processing system would provide the following advantages over 
the existing manual system: 


Lge Improved productivity, 1.e. fewer people can do the same 
job. This is very important since we can reduce the 
staff personnel involved in the manual system, and use 
them for other productive tasks. 


<=. Speed, which is very important for a decision-oriented 
processing environment. 


3. Reduced tedium. Large volume repetitious jobs can be 
processed easily. 


4. Improved quality of decisions. Up-to-date data/ 
information can be made available to decision makers. 


D. GENERAL OVERVIEW OF A DATABASE PROCESSING SYSTEM 


In this section some definitions and basic database 
terminology are provided, followed by a summary of database 
architecture and types of data models. A detailed discussion 
of the data models is beyond the scope of this thesis, but a 


brief overview 1S important as an introduction to dBASE III. 
Ps Definition and Basic Terminology 
a. Database 


A shared collection of interrelated data designed 


to meet the varied information needs of an organization. 


poe 
bJ 


b. Database Management System (DBMS) 

A software system that carries out all user 
requests for data. User requests may be an update, a delete or 
a retrieval operation/function. 

c. Database System 

A system to record and maintain information that 
is Significant to organization in the decision making process. 
It is also called Information System. 

d. Data Definition Language (DDL) 

A specialized language used for the description of 
the database (records and data-items). This description is 
stored in the Data Dictionary maintained by the DBMS. 

e. Data Manipulation Language (DML) 

A programming language used to formulate queries 
Or to write application programs for data manipulation. Pe. 1.5 
also called Host Language or Query Language. 


f. File (or Entity Set) 


An organized collection of records representing 


entities of the same type. 
g- Record 


A unit of data representing a particular entity of 


a file. It consists of a number of interrelated data elements. 


h. Field 


A subdivision of a record containing aunit of 


information. It is the smallest unit of named data. 


i. Key 


An attribute (field) or a set of attributes whose 


Value uniquely identify each entity ina file. 


j- Relationships 


A relationship among entity sets (files) 1s simply 
an ordered list of entity sets. Relationships are classified 
into the following three categories according to how many 
entities from one entity set can be associated with how many 
entities of another entity set (CRef. 3: p. 141: 


(1) One-to-one Relationship. For an entity A in either set 
there is exaxtly one associated entity B of the other 
set. Eg. Suppose that ina database we have the entity 
sets DEPARTMENT and HEAD_OF_DEFARTMENT. The two sets 
form a one-to-one relationship since each department 
has only one Read and each head can belong only to one 
department. CRef. 3: p. 15] 


(2) One-to-many Relationship. For an entity A in either set 
there are (possibly) many associated entities of the 
other set. For example the entity sets ORDER and 
CUSTOMER form a one-to-many relationship since each 
order 15 related with a specific customer, whilea 
customer may De related with more than one orders. 


(3) Many-to-many Relationship. There are no restrictions on 
the sets of pairs of entities that may appear i1n aA 
relationship set. For example the entity sets FRODUCT 
and RAW_MATERIAL form a many-to-many relationship since 
a product may be built from more than one raw material 
and a raw material may be used to BDuild more than one 
type of product. 
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2. Architecture of a Database System 


It 1s obvious that between the computer, dealing with 
bits, and the end user sitting in front of a terminal managing 
information, there can be many levels of abstraction. The 
database architecture is divided into three different levels 
Of abstraction: internal, conceptual, and external. In Figure 
1 we can see the standard view-points regarding the three 
levels of a single database, which may be one of many data- 
bases using the same DBMS software. CRef. 3: p. 6] 

The internal view is the physical database, and resi- 
des permanently on secondary storage devices, such as disks 
and tapes. [t should be emphasized that only the physical 
database exists. We may view the physical database itself at 
several levels of abstraction, ranging from that of records 
Mal files in a programming language such as COBOL, through the 
level of logical records, as supported by the operating system 
underlying the DBMS, down to the level of bits and physical 
addresses on storage devices. 

The conceptual view (or schema) is an abstraction of 
the complete picture of an organization. A DBMS provides the 
Data Definition Language to specify the conceptual scheme. 

The external view (or subdschema) is an abstract model 
Of a portion of the conceptual view. More commonly it is cal- 


led user view. 
3. Database Systems vs Traditional File Systems 


Database technology allows an organization’s data to 
be processed as an integrated whole. It reduces the need of 
creating and maintaining separate files for separate applica- 
tions and permits users to access data more naturally.CRef. 1: 


a. 1) 
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Fig. 1. Levels of Abstraction in a Database System. 


To appreciate this concept, consider the systems shown 
in Figure 2. These are three traditional file processing 
systems. Each file is considered to exist independently, and 
each application program maintains its own files. Also there 
is no sharing of data among different application programs. 

Figure 3 shows a database processing system. The files 
from the previous approach have been integrated into a data- 
base which is processed indirectly by the application prog- 
rams. The new system can perform all the old functions, but 
the programs call upon the DBMS to access the database. The 
DBMS acts as a data librarian. It stores and retrieves data. 
Besides the data it stores in the database, the DBMS also 
stores a description of the format of the data. This is neces— 
sary in order for the DBMS to be able to perform its function. 
thet. Ls pease 
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Fig. 2. File Processing Systems. 
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Fig. 3. Database Processing System. 


The database processing approach is more beneficial 
than the traditional file processing approach for the fol- 


lowing reasons: 
ir 


Integrates data into a single database. This feature 15 
extremely important because it enables more information 
to be produced from a given amount of data. This 15 
because DBMS allows processing of any combination of 
data stored in the database, and thus we can obtain more 
information. In the file processing system the 
combinations of data that can be performed are limited, 
since data 1s physically partitioned, and hence the 
amount ofinformation obtained is limited. CRef. 1: p. 3] 


Minimizes data redundancy. Separate and redundant data 
files are integrated into a single logical structure. 
This means that'a data item is recorded once, while in 
the file processing system the same information can be 
repeated in different files. 


Provides data consistency. Because the data redudancy is 
controlled, tiere is less chance of inconsistencies. 
This 15 not true for a file processing system, since the 
data redundancy 15 uncontrolled. 


Allows sharing of data. Data can be shared by many 
application programs via DBMS. In the file processing 
approach, since every application has 1ts own private 
files, there is little opportunity to share data from 
other application programs’ files. 


Allows enforcement of standards. Since data 1s repeated 
only once, maintaining a standard 15 a lot easier. 


Facilitates the development of new applications. There 
1s no need for designing, Building, and maintaining anew 
separate files for new applications, while in the file 
processing approach, usually anew application must be 
build from scratch. 


Provides uniform security, Orivacy, and integrity 
controls. Some of those controls are provided directly 
by the DBMS (concurency control), and others are 


specified by the user during the database definition 
(integrity rules) and the program development (security 
constraints). This 1S an immediate benefit from the 
Sharing and integration of data. 


Creation of program/data independence. DBMS isolates any 
changes in file formats, record structure, etc. from 
application programs. Therfore only the DBMS and those 
programs that use the changed data element need to De 
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modified. In the file processing systems, programs 
interface directly with files and hence the structure 
of files is distributed across the programs. This 
distribution creates problems when a file is changed. 
CRef. 1: p. 43 


i. Facilitates data accessibility and responsiveness. DBMS 
provides an interactive interface to database by query 
Language. 


j- Reduces program maintenance. This is a direct 
consequence from the program/data independence feature. 
This is not true for the file processing approach whers 


any change ina datafile will necessitate a (possibly 
major) change in programs. ; 


4. Data Models 


A model is a representation of real world objects, 
events, and their associations in a mathematical form. 

A data model is an abstract representation of the data 
about entities, events, activities, and their associations. 
The purpose of a data model is to represent data in an 
understandable way. The three most important data models in 
use today are the network, hierarchical and relational. These 
models are also used to categorize DBMS products. CRef. 3: 


p. 18) 


a. Network Data Model (NDM) 


A network data model represents data as a set of 
record types and pairwise relationships between record types 
(Figure 4). Relationships that involve more than two record 
types are not directly permitted. 

The basic data structure used in a network data- 
base 1s the graph. The links in the graph are Didirectional, 


allowing us to travel either from many to one or from one to 


i? 


many .« The process of following the graph links, or ~*more 
generally, relationships is called navigation (CRef. 3: p. 30]. 
Navigation allows us to search the database and perform the 
basic operations (retrieve,insert, modify, or delete). 

The DBMS in a network database processing system 
supports the use of multiple one-to-many or many-—to-one 
relationships between the same pair of record types, but can- 


not support directly the use of many-to-many relationships. 
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Fig. 4. Network Data Model 


b. Hierarchical Data Model (HDM) 


In the Hierarchical Data Model organizations area 
viewed as a hierarchy of positions. A hierarchical database 
consists of one or more trees and each tree consists of a 


hierarchy of records (Figure 5). Hierarchical data models are 


Aho 


considered as a special case of the network data model since 
the tree structure is a special case of the graph. 

The Basic operation on a hierarchical database is 
a tree walk, that 15, given a node of the database instance, 
we can scan all of the descendants of a given logical record 
type. This allows us to insert new records, retrieve, modity, 
or delete existing records. 

The above operation is unidirectional, that is, 
the links in the tree proceed from parent to child anly 
CRef. 3: p. 32). For this reason HDM is considered inefficient 


in supporting many-to-one relationships. 
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Fig. 3S. Hierarchical Data Model. 


c. Relational Data Model (RDM) 


A relational data model differs from NEM and HEM 
in architecture. The data are represented as a collection of 
relations. Intuitively, arelation 15 a two dimensional table 


(Figure 6) representing a file. The rows of the relation are 


the file records. Rows sometimes are called tuples Dian s 
rela tion. Each column contains values about the same attri- 
bute (field), and has a distinct name, i.e., the name of the 
attribute. The sequence of the rows is immaterial CRef. 1: 
eed 7 Go 

The set of attribute names for a relation is cal- 
led the relation scheme. For the example in Fig. 6, the 
relation stheme for the relation PRODUCT is {PRODUCT#, NAME, 
PRICE. The collection of relation schemes used to represent 
information 15 called a (relational?) database scheme, and the 
current values of the corresponding relations is called the 
(relational) database. (Ref. 3: p. 211] 

The principal advantage of an RDM is data flexibi- 
lity. Relationships need not be predetined. We can join 


PRODUCT tuples with ORDER tuples (Fig. 6}, without Raving to 


ORDER relation : PRODUCT relation 
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Fig. 6 Relational Data Model 


Ppredefine the relationships in the design. The RDM can support 


the use of all types of relationships. 


ae gen | 
a 


The second advantage is that the way of arranging 
the data 1s simple and more understandable to humans than the 
way Of arranging data in the NDM and HDM, since the table 
structure 1S simpler than the graph and tree structures. 

Another advantage is that query languages provided 
for relational database processing systems, permit data to be 
manipulated as groups and not procedurally as one record at a 
time. 

For the above reasons, relational DBMS have become 
very popular, although it is the youngest of all DBMSs in 


the computer community. 


E. dBASE III CONCEPTS 


Recently, database management systems built for micro- 
computers have become very popular. They provide an 
inexpensive and easy way for developing database systems for 
applications like general personnel, accounting, and inventory 
control. 

dBASE III is a relational database management system tor 
microcomputers. It contains its Own programming language, 
permitting a user to develop extremely powerful and complex 
application programs. dBASE III is used as the DBMS in the 
design and development of an automated officer assignment 


database system. 
1. Features of dBASE III 


a. Program/data independence. Changes in file structure do 
not affect application programs. 


By Data can be easily updated. 


g- 


ie 


Besides the known data types (character, numeric, and 
logical), it provides the date data type for managing 
dates, and memo data type for managing long passages 
Of Sie 


Saves information as disk files in 9 specialized formats 
each serving a specific dBASE III processing need. 
CRef. SoS: pp. Z2-o] 

Sorting and indexing capabilities. 

Creation and printing of formatted reports. 


Date arithmetic. 


Built-in high level language,which is extremely powerful 
and supports structured programming. 


Allows interfacing with other software systems, such us 
SuperCalc, Symphony, WordStar and Basic. CRef. 4] 


2- Limitations of dBASE III 


Each database file can have up to 1 Billion records 
maximum. The maximum size of each file is 2 Billion 
bytes. 


Allows a maximum of 128 fields in each record with their 
combined widths up to a maximum of 4,000 characters. 


Allows you to have up to 10 database files open at the 
same time, or 15 files of all types. You can have fF open 
index files and 1 format file per active database file. 


Filenames can be up to 8 characters long and fieldnames 
can be up to 10 characters long. 


The maximum number of active memory variables is 256. 
The total number of Bytes for memory variables 1s 6,000, 


Execution of dBASE III programs is slower than compiled 
programs. 


All the above values may be limited By the 


computer hardware configuration. (Ref. S: p. 2-2] 


II. ANALYSIS 


Analysis is the study of a problem prior to taking some 
action. In our case, anmalysis refers to the study of the 
existing problem in order to derive the required information 
which will enable us to decide whether a database system 
approach can provide-an efficient and economical solution to 


our problem or if it will become part of the problem. 


A. PROBLEM DEFINITION 


As we stated earlier, the operations required for sche- 
duling the annual assignments of the officers in each Branch 
of the Hellenic Army General Staff (HAGS>) are performed 
manually by the staff of each Branch. This results in tedious 
time-consuming operations and inefficiency. In addition, the 
Branch Director may not be able to make fast decisions 
concerning personnel management due to the lack of timely = and 
accurate information. Further, the volume of transactions in 
every Big organization and especially in the army, pertaining 
to personnel management, 1s getting larger and larger, which 
means that additional personnel 1S required to perform the 
above job, leaving other critical positions unmanned. 

For a solution to the above definition of the problem we 
ask the question ‘can a database system provide a more ef- 
ficient and economical solution?’. In order to answer this 
question we must be aware of how a Branch 1s organized, what 
1S being done, how frequently does this job occur, and how 


great is the volume of transactions. 


p ae Organization Overview 


a. Branch Organization 


The Hellenic Army General Staff is organized into 
three major parts: Arms, Services, and Staff. The relation 
of these parts to the HAGS organization iS Summarized in 


Figure 7. 


SERVICES 





Fig. 7. Organization Chart of the HAGS. 


Fach Arm or Service (we will call them Simply 
Branches), is responsible for the operational readiness = and 
managerial aspects of the units which are part of the Branch. 

Each Branch iS organized into subordinate Com- 
mands, Staffs, and Units. The number of units varies from 
Branch to Branch, depending on the mission and special 
characteristics of each Branch of the Army. 

In order to provide a concrete example of a branch 
Organization we will use the Artillery Branch as the model for 
this research. Figure 8 summarizes the relation of the com- 
mands, staffs, and units to the Artillery Branch organization. 
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Fig. 8. Organization Chart of the Artillery Branch. 
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In Table I we provide a detailed list of the 
Artillery echelons. There are four categories of units: 
Seatfs, Schools, Training Centers, and Combat Units. Also 


units are characterized as A-type, B-type, or C-type according 


to their operational readiness. The operational readiness 
determines the level of manning for each unit. The names, 
number of units, and the manning level provided below are 


figurative for security reasons. 


Table I. Artillery Echelons 


(| UNIT ¢ UNIT UNIT (UNTIT | 
i NAME | DESCRIFTION 1 CATEGORY | Yee 
i\ABD/HAGS iArtillery Branch Directorate :Staff 1 A 
(AS ‘Artillery School iSchool i Aft 
i: ARTC rArtil. Recruit Training CenteriTrain. Center: A | 
1 GMB ‘Guidance Missile Battalion ‘Combat Unit i A 4 
i'AC/1 AC itst Army Crop Artil. Command (obatt 1 At 
(li FA/ABiField Anti-Air Artil. Battal. i:Combat Unit (At 
(12 HAB iHeavy Artillery Battalion ‘Combat Unit 1 At 
(13 OB iObservation Battery iCombat Unit cr At 
(AC/11 [Dilith Inf. Div. Artil. Command iStaff 1 Af 
(lil FAB :Field Artillery Battalion ‘Combat Unit i A 
‘li2 FAB ‘Field Artillery Battalion iCombat Unit 1 At 
(113 MHABiMedium—-Heavy Artil. Battalion i:Combat Unit (1 At 
(rAC/1i2 IDilzeth Inf. Div. Artil. Command iSstaff ( Bf 
(121 FAB iField Artillery Battalion- ‘Combat Unit i BY 
(122 FAB iField Artillery Battalion ‘Combat Unit 1 Bt 
(123 MHABiMedium—-Heavy Artil. Battalion iCombat Unit ( Bt 
i\AC/S AC if2nd Army Crop Artil. Command :Staff eee) 16 Er 
i2l FA/ABi Field Anti-Air Battalion iCombat Unit ie ne 
12a HAB iHeavy Artillery Battalion ‘Combat Unit He 
120, OR ‘Observation Battery iCombat Unit . Caan 
(AC/21 [Distist Inf. Div. Artil. Command iStaff se. 
i2il FAB :Field Artillery Battalion ‘Combat Unit ‘een 
i2zlif FAB i:Field Artillery Battalion iCombat Unit =) 
i2l3 MHABi:Medium—-Heavy Artil. Battalion i:Combat Unit ;* Be: 
i\AC/SS IDisand Inf. Div. Artil. Command iStaff 1 es 
i22et FAB iField Artillery Battalion ‘Combat Unit : een 
i222 FAB i:Field Artillery Battalion ‘Combat Unit :. Cae 
122-35 MHAB: Medium—Heavy Artil. Battalion. :Combat Unit : ae 


b. Officers’ Organization 


Officers come from two sources, those who have 
graduated from the Military Academy (MA), and those who used 
to be warrant officers and have been promoted to officers. 


They have graduated from the Non-Commissioned Officers School 


(NCOS). Further, officers are distinguished according to their 
specialty as commanding officers (all officers coming from the 
Military Academy plus a small number coming from NCOS), 
technicians, and administrative officers (officers coming oanly 
from NCOS). 

Officers are assigned to various units according 
to an organization table maintained by each Branch. Table II 


illustrates the organization table of the Artillery units. 
2. Description of the Present Situation 


One of the major responsibilities of a Branch is to 
schedule and monitor the assignments of the officers who 
belong to this Branch. Each officer during his career has toa 
be assigned to various units and staff positions in order to 
be equiped with the necessary skills which will qualify him 
for further professional evolution. For this reason, in each 
Branch of the HAGS there exist a mechanism through which the 
Director keeps track of the assignments of his officers. 

All officers through the rank of captain are exclu- 
Sively assigned to units which are part of the corresponding 
Branch. However, a small number of officers, from the rank of 
major and on, are unbound by the Branch and disposed to the 
HAGS to man other staff units outside the Branch. The number 
of officers serving outside the Branch is always fixed. 

Each Branch schedules and monitors the assignments of 
its officers up to the rank of the Colonel. The assignments 
of the Generals are scheduled by the HAGS and they will not be 


discussed here. 
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a. Criteria affecting the Assignments 


The mechanism of scheduling the assignments in each 
Branch of the HAGS is based on certain criteria. The criteria 
vary from Branch to Branch depending on the organization = and 
special characteristics of each Branch. Among those criteria 
we will pick up the common ones in order to teep this 
research more abstract, so that it can be easily applied to 


every Branch with minor modifications. 


(1) Origin. Officers coming from NCOS can never be assigned 
to staff positions, as well as in units outside the 
Branch. 


(2) Specialty. Table II, determines the number ofofficers 
assigned to each unit according to their specialty. 


(3) Schools. The only school that can directly affect the 
assignments is the War College. An officer can never 
be assigned to a staff unit if he has not graduated 
from the War College. Other schools that do not affect 
the assignments are not discussed here, although they 
may be very important for other aspects in the decision 
making process. 


(4) Rank. From the Organization Table (Table II) we can 
determine the number of officers per rank assigned to 
various units. However , there are some simple rules 
governing the assignments which cannot be seen in the 
table and they are stated below. 


(a) All 2nd lieutenants, right after their graduation 
from the Military Academy, are assigned to the 
corresponding Branch-school (Artillery School for 
our model) for training (specialization). After 
one year of training, all are assigned to the 
Artillery Recruit Training Center (ARTC) in order 
to obtain the necessary training experience. They 
remain one year in the ARTCC and then are assigned 
to various combat units. 


(Bb) Al! officers graduating from the War College (only 


majors) are assigned to staff positions (inside or 
outside the Branch) for at least two years. 


at 


(3) 


(6) 


(7) 


(8) 


(9) 


Command Time. Command time 1s a requirement for all 
officers up to the rank of lieutenant colonel for 
promotion to the next rank. The minimum command time 
required for a lieutenant colonel is one year of 
service as a Battalion commander. Therefore, each 
Branch during the scheduling of the assignments must 
take the command time into consideration, and assign 
the lieutenant colonels who have not completed this 
requirement as Battalion commanders. Each commander is 
responsible to assign appropriate duties to all =*his 
subordinate officers, so that they can complete the 
required command time for their rank. 


Time of Service in the Same Unit. For each rank there 


1S aA minimum and a maximum time an officer can serve in 
the same unit as described below. 


(a) Lieutenants 3-4 years. 

(b>) Captain 3-4 years. 

(c) Major 1-3 years. 

(d) Lieutenant colonel 1-3 years 
(e) Colonel 1-2 years 


Officers’ Requests. After an officer has been assigned 
to a unit fora year he makes a request for his next 
assignment. This request is submitted only once during 
each assignment period, except in the case when serious 
reasons dictate the change of the request and a need 
for resubmission. In the request each officer states 
his preferences in three areas that he would like to 
serve in during his next assignment. The officers’ 
requests are examined By the Branch during the 
scheduling of the assignments, and in combination with 
the other criteria. If there is no conflict, all 
conditions can be satisfied. 


Marital Status. This criterion is examined whenever two 
or more officers having the same qualifications request 
the same unit for their next assignment. In this case 
married officers or officers having bigger families are 
given preference. 


Historical Data. Each Branch maintains a record for 
each officer, containing all personal and service data. 


tal 
bh 











All assignments of an officer are maintained in his 
record, along with the previously mentioned data. This 
data must always be kept up-to-date, because they 
reflect the real picture of an officer and provide 
scheduling personnel with the required information to 
accomplish their task. 


b. Officer Processing Considerations 


Officers’: assignments are closely related with the 
promotions. The assignments follow the promotions, which 
usually occur four times a year: for the colonels (March?, for 
the lieutenant colonels (April), for the majors (May), and for 
the lieutenants/captains (June). After the announcement of the 
promotions by the HAGS, each Branch schedules the assignments 
for the corresponding rank and implements them by issuing the 
necessary orders. 

The personnel involved in this job combines all 
the above criteria and determines who of the officers meet the 
requirements for a new assignment and in which unit he must be 
assigned. Usually one fourth of the officers of each Branch 
are moved every year during the assignments. Besides this 
duty, the above personnel are responsible to provide the 
Branch Director and other staff offices of the HAGS all 
requested information concerning the officers ot the Branch. 

The number of personnel involved in this job 
varies from Branch to Branch, depending on the volume of the 
officers enrolled in each Branch. In our model usually three 
people are directly ‘involved, one lieutenant colonel, one 


lieutenant, and one civilian. 


B. JUSTIFICATION OF A COMPUTERIZED SOLUTION 


From the above discussion, it is obvious that the manual 
processing of the officers’ assignments 1S a very tedious, in- 
efficient and time-consuming operation. Three people are 
working continuously creating, classifying and updating 
officers’ records, scheduling the assignments, and providing 
the Branch Director and HAGS all requested information (lists 
and various reports) concerning personnel management. Further, 
inaccuracies and delays may be introduced in the decision 
making process due to the great volume of required data and 
the complex character of the job. 

All of the above mentioned problems could be overcome by 
developing and implementing an automated system. 

There are two possible computerized approaches which can 
provide asolution to our problem: the traditional file 
processing approach, and a database system approach. Between 
the two approaches the later is more efficient than the first 
one for the reasons explained previously. Further , the 
implementation of a database system on a microcomputer is = an 
economical solution, since the expenses for Buying the entire 
system (hardware and DBMS) are very low (about $4,000) and 
they can be offset by a reduction of processing personnel 
(from three to one). It 1S apparent that this system would 
also provide a better quality of services. 

From the above discussion it is evident that a database 
system should be developed and implemented on a microcomputer 
for an efficient and economical solution to the officers’ 
assignments scheduling problem, as well as, for other problems 


related with personnel management in each Branch of the HAGS. 


C. SYSTEM GOALS AND REQUIREMENTS 


In order to establish a framework for the database system 
development,it is necessary to specify what we expect from the 


new system, and what capabilities this system must provide. 


Le Goals 


Goals are targets for achievement. The following 


targets must be achieved by the system under development: 


A. It should reduce the personnel involved in the process 
of officers’ assignments scheduling by 65 percent. 


b. It should be easy to use Dy nonprogrammers. 
i. It should be useful. 
d. It should be cost effective. 


e. It should make users’ jobs more interesting. 


2. Requirements 


Requirements specify capabilities that a system 
must provide in order to solve the problem. Requirements 
include functional requirements, performance requirements, and 
requirements for hardware, software, and user interfaces 
CRef. 2: p. 33]. The capabilities the new system must provide 
are the following: 

a. Reliability, i.e. it must be able to preform its 


intended functions under stated conditions for a stated 
period of time. 


b. Application development must be easy, cost-effective, 
and fast. 


c. The data can have multiple uses. 


hips) 


oe Performance. It must be fully operational 95 percent of 
each 24-hour period. 


= 


-e. Response time to user requests (queries) no more than 3s 
seconds. 


fe The size of primary memory able to support the system 
must be at least 320K bytes (180K bytes for bBASE III 
system program plus SOK bytes for operating system 
requirements plus 90K for user requirements). CRef. 
3: p. 36] 


g- The computer system must be equiped with a 20M byte 
hard-disk for the user files and programs, and at least 
one floppy disk drive for the system program and “(for 
back-up purposes. 


A. Maintainability, i.@. software changes must be easy and 
cost-effective. 


i. Security and privacy. 


D. INPUT/OUTPUT INFORMATION 


As stated earlier, the system under development can be 
applied to all Branches of the HAGS with minor modifications, 
but for the purpose of this research we will include only the 
Artillery Branch. 

Although in this phase we are not able to specify what the 
exact input and output information will be, we have gained 
some insights and understanding from the discussion thus far. 
These thoughts should be taken as hints and guidelines 
concerning system input and output information for the product 
design, but not as rigid requirements. 

Detailed description of the required input and output 


information will be provided in the design phase. 
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the 


se 


Input Information 


Since the system 15 intended to deal with officers, 


required input information should be officers’ data. 


Therefore, we must consider the following: 


As 


Ze 


Each officer has a unique serial number, rank, origin, 
specialty, Nomination date, promotion date in the 
current rank, and a home city. 


meeoti iter scm ves Ii SOME Unit Since a certain date 
(enrollment date), and has been assigned a duty. The 
unit 1S identified By a unique name, has a readiness 
type, and 1s located in some geographical area of the 
country (city and county). 


Each officer has a marital status (single, married, 
divorced, windower, number and age of children, working 


wife). 


Each officer has some education (military/non-military 
studies). 


Each officer submits a request to the Branch indicating 
three areas he wants to be assigned in his next 
assignment in preference order. 

Each officer has some historical data (previous assign- 
ments, duties, promotion dates etc.). 


Output Information 


To meet the above goals and requirements the following 


output information is required: 


= 7 


List of the scheduled officers’ assignments By rank 
including serial number, name, rank, source unit, desti- 
mation unit, and date the assignment must take place. 


List of any unit including the officers assigned to it, 
their duties, and enrollment date. 


List of all Artillery officers in any requested order. 


List of officers By rank reflecting their present status 
(rank, unit, duties, command time, marital status, and 
enrollment date). 


List of Battalion commanders. 


List of all Artillery officers serving outside the 
Branch. 


The above lists will be formatted and issued at any 


time upon request. Besides these lists, the following reports 


will 


As 


be available: 


Service time report for any officer including all units 
he has been assigned to, duties, and enrollment/dis-— 
disenrollment dates, in chronological order. 


Officer’s status report reflecting his status. 
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III. DESIGN 


The design is a solution-the translation of requirements 
into ways of meeting them (Ref. 6: p. 224]. In our case, data- 
base design is the process of developing database structures 
from those formulated in the analysis phase of Branch 
requirements. The resulting design must satisfy the needs of 
the Branch in kee of completeness, integrity, and 
performance constraints. The design of the system under 
development includes two steps: the logical Cor conceptual ) 


design, and the physical design. 


A. LOGICAL (CONCEPTUAL) DESIGN 


Logical design 1s the process of describing the system 
features, i1.@e., the functions, inputs, files, the way the 
files are related to each other in order to form the conceptu- 
al database structure, and outputs in a manner that meets the 


specified requirements. CRef. 6: p. 225] 
1. System Functions 


The system under development will perform the fol- 


lowing functions: 


a. Update Operations. This function allows the user to 
insert, modify, and delete records in all the supporting 
files except a few files which will automatically be 
updated, as they will be described later. It 15 very 
important for the Branch to keep all the files 
up-to-date since the accuracy of the system will mainly 
depend on the accuracy of the files. Update operations 
take place whenever a transaction comes to the Branch. 


By 


b. Assignment Processing Operations. This function will 
perform the scheduling of the officers’ assignments and 
Will take place right after the annual promotions for 
each rank. Since the criteria applied in the assignment 
scheduling are different for each rank, as we described 
earlier, this function will monitor a number of sub- 
sequent functions corresponding one per rank. 


c. Report Generator. This function is for retrieving all 
necessary information from our database upon request. 
The requested information will be displayed on the 
screen and optionally sent to the printer. 


qd. Miscellaneous. This function will include the following: 


(1) User Authorization Validation. Whenever ae user 
attempts to access the database via the existing 
programs, the system will ask him to enter his 
password. This password will be checked against the 
existing list of valid passwords. If 1t 15 valid, 
the system will allow him to use the database. 
Otherwise an automatic exit to the underlying 
operating system will take place. In this way we 
can prevent unauthorized updates and disclosure of 
the database contents. 


(2) User Log. Every time a valid user enters the system 
to do a specific task, a record is automatically 
created containing the user’s name, the date and 
time of database access and the kind of task 
performed. In this way we can provide an audit 
trail of who did what on the database and when it 
took place. In case of erroneous updates 1t will be 
easy to find out what exactly happened. 


(3) Historical Data Log- For each transaction concern- 
ing officer nomination, promotion, assignment, 
retirement or death a record 1s automatically 
created containing the officer’s serial number, 
rank, type of transaction, unit and date the 
transaction took place. This fileis very useful 
for for historical purposes. 


All the above functions will be menu driven. The 


functional Blocks of the system are illustrated in Figure 9. 
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UPDATE ASS IGNMENT REE GAL HESeEeS 


OPERATIONS FROCESSING GENERATOR LANEOQUS 





Fig. 9. Functional Blocks of the System. 


<- Input Design 


During this step we will specify the manner in which 
data enters the system for processing. In other words we will 
provide the link that ties our system into the users’ world in 
a way that guarantees the reliability of the system, avoids 
extra steps and delays, and keeps the process simple. CRef. 6: 
p. 286] 

The most efficient way to achieve the above objectives 
1s to design a menu-driven on-line system. A menu 1S a screen 
Of information displayed on the CRT that shows the user what 
functions can be performed and how to select them. 

A main menu and a number of sub-menus will guide thes 
user of our system to select and perform the appropriate 


functions in a top-down fashion as described below. 


a. Main Menu Description 


The main menu in Figure 10 shows’ the options 


available to the user of the database system. Each option is 
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identified by a number. 


To 


invoke a particular option, 


the 


user depresses the key corresponding to the desired option. 





* 


MAT 


N MENU * 


Enter your selection —-+* 


=_-_ eo ~=~= aS oa -—= = = =—-_ ae 





oie 


Fig 


1d 10. 


Main Menu. 


Sub-menus Description 


(1) 


Update Menu. 


selects option 1 from 


Figure i1, 


the 


it provides seven 


can insert, mod 


~= - = Cd ~= ~_= —~=-— = =_ = =e ~= —_—=_ 


INSERT 
INSERT 
INSERT 
MODIFY 
MODIFY 
bse le 


ify, de 


+ 


RECORDS 
RECORDS 
RECORDS 


REECE RES. 


RECORDS 
RECORDS 


Enter 


lete 


UPDA 


This menu 1s entered when a 


main menu. As we 


can 


see 


user 


in 


new options. Through this menu we 


records in the specified database 


TE MENU 


INTO 
INTO 
INTO 
FROM 
FROM 
FROM 


your 


selection -> 


-—=- “= nan = “= ~—= -—= -— = ~= = = -— = 





Fig. 


® 


11. Update Menu. 
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files, or exit tO main menu. The selection of the desired 
records is done by typing the record key of the corresponding 
database file. After selecting a specific record, its 
structure is displayed on the screen and the cursor is 
positioned in the first element to be updated. Invalid data 
types (numeric, character, logical, or date) are not accepted 
by the system. Thus, the user is protected from typing invalid 


data types. 
(2) Assignment Processing Menu. This menu is dis- 


ran 


played in case a user selects option 2 from the main menu 
(Figure 10). This menu provides seven options as it is~ shown 
in Figure 12. Each function is performed by selecting the cor- 
responding number. The actual input data required for proces- 
Sing the assignments are database files, but those files are 
selected by the corresponding application programs, so the 


user does not have to worry. 


* ASSIGNMENT PROCESSING MENU * 


Enter your selection —> 


1st LIEUTENANT ASSIGNMENT PROCESSING:... i I 
-~nd LIEUTENANT ASSIGNMENT PROCESSING:... 2 
CAPTAIN ASSIGNMENT PROCESSING:.......... = 
i MAJOR ASSIGNMENT PROCESSING:....... cs <nsmemen 
i LIEUT. COLONEL ASSIGNMENT PROCESSING:... 3 
CORONERS Ass tGhmenNt PROCESSING: .....-...5% & 
' 6 OUP UNG) RON iS) s |S aS Te 





Fig. 12. Assignment Processing Menu. 


(3) Report Generator Menu. This menu is displayed 


when the user selects option 3 from the main menu (Figure 10). 
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From this menu a user can select the desired output (list or 


report). Figure 13 shows the details of this menu. 


* REPORT GENERATOR MENU * 


Enter your selection -* 


‘ LIST GF SEREDUPED ASS Pe Neri een 1 
LIST OF OFFICERS OF ANY @BeS Rete ini ess... oer = 
LIST OF GFFICERS IN ANY DESIRED @@RDER.). . . -ae 6 
LIST OF OFFICERS GF ANY DES Re peaaiia: .-- - - = 4 
LIST OF BATTALION GCGMMANDERS-- 1) ome - ee. -- - a) 
LIST OF OFFICERS SERVING OQUTSIDE THE BRANCH: 6G i 
OFFICER’S SERVICE TIME REPORT:...-eces22.00: i i 
OFFICER S=*StAGUS REP GIN Se eeenet eaten ean 8 
EXT FG Pie Ne ee ace eee = 





Fig. 13. Report Generator Menu. 


os File Design 


To support the above specified functions the following 
files with the corresponding structures will be created. The 
names of the files and fields are the ones that will be used 


In our system. 
a. OFFICER File. 
It is the main file containing all required infor- 


mation for each officer. Figure 14 shows the structure of the 


OFFICER file, as well as the explanation of the fields. 
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FIELD 


O1 
O2 
03 
O4 
OS 
06 
Oe 
O08 
ao 
10 
a 
3 
13 
14 


NAME 


NAME 
SERNO 
RANE 
NOMYEAR 
SPECIAL 
SOURCE 
NOMDATE 
PROMDAT 
ASWE IGH 
ORIGCIT 
OR IGCOU 
MARSTAT 
CHILDRE 
WORE.WIF 


Primary Key : 


F 


b. SER 


TYEE WIDTH 


G O18 
c OOS 
C OO2 
G O02 
ny C OO1 
Cc OO4 
Date 008 
e Date OoO8 
T C O02 
¥ Eg QOO6 
NTY C 008 
& OO1 
N N OO1 
= a O01 
SERNO 
ig. 14. Structure f 


VES File 


FIELD-EXPLANAT ION 


Officer’s name 

Officer’s serial number 
Officer’s rank 

Year of nomination 
Officer’s specialty 
Officer’s source (MA,NCOS) 
Nomination Date 

Promotion Date 

Weight for next assignment 
Gil wor otrilecen. S Origin 
County of officer’s origin 
Officer’s marital status 
Number of children 

Working wife 


or file OFFICER. 


This file contains information reflecting the cur- 


rent service status of each offic 


enrollment date, 


fields is shown in Figure 15. 


FIELD NAME 


Ol 
2 
O35 
O4 


hides WIDTH 


SERNO LE OOS 
UNI TNAME C O08 
ENROLDATE DATE 008 
DUTY G O10 


Primary Key 


> {SERNO, UNITNAME} 


er (unit he 1s assigned to, 


duty). Its structure and the explanation of 


FIELD-EXPLANAT ION 


Officer’s serial number: 
Unit name 

Enrollment date 
Officer’s duty 


PlG@.. fo. otrteeeare tor Pile SERVES. 


c. REQUESTS File 


This file contains officers’ requests for their 


next assignment. Figure 16 provides the details of this file. 


FIELD NAME inde= WIDTH FIELD-EXPLANATION 

O1 SERNO & OOS Officer’s serial number 
O2 STAFFOFFIC L GOO1 Staff Officer (T or F } 
os SUBMDATE “DATE O08  Request’s submission date 
O04 UNIT e OO8 First requested unit 

OS UNITS os OO8 Second requested unit 

06 UNITS eS 008 Third requested unit 


Primary Key : SERNO 


Fig. 16. Structure for File REGUESTS. 


d. ASSIGNED File 


This is a temporary file created during the 
assignment processing, containing information concerning 
theofficers to be assigned to some unit. Details of this file 


areprovided in Figure 17. 


FIELD NAME TYPE WIDTH FIELD-EXPLANATION 

Ot SERNO & 00S Officer’s serial number 
O72 RANK C OO? Rank 

03 SOURCE ® O04 Source (MA or NCOS) 

O4 SPECIALTY B OO1 Specialty 

Os UNITNAME C 008 Unit name 

O6 ASGNDATE DATE O08 Assignment date 

OT ASNWE I GHT N O02 Assignment Weight 


Primary Key: {SERNOQ, UNITNAME} 


Fig. 17. Structure for File ASSIGNED. 
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e. UNITORG File 


This file contains information about 


zation of each unit according 


the organi- 


the operational readiness 


type and type of echelon as depicted in Figure 18. 


FIELD 


O1 
O2 
03 
O4 
OS 
O6 
OF 
08 
O9 
10 
LoL 
Pe 
13 
14 
Lo 
14 
ir 
18 
1 
20 


Primary Key: 


The 


NAME Lind= WIDTH 
ECHELON EE 005 
READINESS = OO1 
MACOS N O02 
MACOS N O02 
MACO4 N O02 
NCOSCO4 N 002 
NCOSTO4 N O02 
NCOSA04 N O02 
MACO3 N O02 
NCOSCO3 N O02 
NCOSTO3 N 002 
NCOSAO.3 N O02 
MACO2 N O02 
NCOSCO2 N OL 8 es 
NCOSTO2 N 002 
NCOSA0O2 N O02 
MACO1 N 002 
NCOSCO1 N O02 
NCOSTO1 N O02 
NCOSAO1 N O02 


Fig. 


{ECHELON, READINESS} 


is. 


#. UNIT File 


This 


Structure 


file 


of the file 


depicted in Figure 19. 


contains 


FIELD-EXPLANAT ION 


Type of echelon 

Operational readiness 

MA commanding colonels 

MA commanding It. colonels 
MA commanding majors 

NCOS commanding majors 

NCOS technician majors 

NCOS administrative majors 
MA commanding captains 

NCOS commanding captains 
NCOS technician captains 
MCOS administrative captains 
MA commanding ist lieuten. 
NCOS commanding ist lieuten. 
NCOS technician ist lieuten. 
NCOS admin. ist lieutenants 
MA commanding 2nd lieuten. 
NCOS commanding 2nd lieuten. 
NCOS technician @nd lieuten. 
NCOS admin. 2nd lieutenants 


Structure for File UNITORG. 


information about each unit. 


explanation of fields is 


FIELD NAME TYPE WIDTH FIELD-EXPLANAT ION 


Ot UNI TNAME c O08 Unit name 

OZ CATEGORY Cc OO1 Unit category 

Os ECHELON cS 005 Type of echelon 

O4 READINESS S OO1 Unit readiness 

OS BD) 2 fd C O10 City of unit station 
O6 COUNTY & O10 County of unit station 


Primary Key: UNITDESCR 


Fig. 19. Structure for Fite UNE 


he. HISTORIC File 


; This file records all major officer’s transactions 
which have taken place during his career. Major transactions 
are considered to be the nomination, promotions, assignments, 
retirement, and death. Usually there are more than one entry 
for each officer in this file. The structure of the file and 


field explanation is shown in Figure 20. 


FIELD NAME TYPE WIDTH FIELD-EXPLANATION 

O1 SERNO B OOS Officer’s serial number 

QO? RANE OO2 Officer’s rank 

O3 TRANSTYFE = O12 -Transaction type 

4 UNIT C 008 Unit name 

OS TRANSDATE DATE QOO8 Date the transaction occured 
OS ORDERID & O20 Order caused the transaction 


Frimary Key: {SERNOQ, TRANSDATE?} 


Fig. ZO: Structure for File Aisiepre 
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#. SCHOOLS File 


This file contains information about military and 
non-military studies of the officers. It 1s possible for an 
officer to have more than one record in this file depending oan 
the number of schools he has attended. Records are created 
only for officers who studied for at least one year in some 


school. Details are shown in Figure 21. 


FIELD NAME TYPE WIDTH FIELD~-EXPLANATION 

Ol SERNOQ C O05 Officer’s serial number 

Oe SCHOOLNAME i O10 School -name 

03 DEGREE C One Title obtained 

O4 OBJECT C 018 Object of studies 

Do - COUNTRY C O10 Country of studies 

O6 DURATION N O02 Studies duration in months 
OT GRADDATE DATE 008 Graduation date 


Primary Key : {SERNO,SCHOOLNAME?} 


Pigs Pee Structure of file SCHEOHS* 


ie SELECTED file 
This file contains all officers who have been se- 


lected by the Branch to study in some school for at least one 


year. The structure of the file is shown in Figure 22. 
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FIELD NAME TYEE WIDTH FIELD-EXPLANATION 


O1 SERNO G 003 Officer’s serial number 
O2 SCHOOLNAME EG O10 Name of the school 
O3 SCHOOLYEAR Ec OO? Year the officer will be 


sent to the school 


Primary Fey: t(SERNO} 


Fig. 22. Structure for Frio selec ee 


j. USERLOG File 


This file records all users’ activities on the 
database system. Details of the file structure and field- 


explanation are shown in Figure 23. 


FIELD NAME TYPE WIDTH FIELD-EXPLANATION 


Ol USERNAME C 018 User’s name used the system 
6) TASE. eS O10 Task performed in the system 
O3 PROGRAME te 10 Program executed 

O3 LOGDATE DATE G08 Date of using the system 

O4 LOGT IME C OOS Time of using the system 


Primary Key: {tLOGDATE, LOGTIME} 


Fig. 23. Structure forerite Useless. 


1. USERID File 


This file contains all valid passwords and the 
user’s name corresponding to each password, as it 1s described 


in Figure 24. 


FIELD NAME TYPE WIDTH FIELD-EXPLANATION 


O1 PASSWORD C 006 A predefined password 
O2 USERNAME C 018 User ’s name 


Primary Key: PASSWORD 


Fig. 24. Structure for File USERID. 


4. Conceptual Database Structure 


The files described above are related as illustrated 
in the entity/relationship diagram shown in Fig. 25. The 
rectangles represent entity sets (files), and the diamonds 
repesent relationships between entity sets. A relationship 15s 
also an entity set containing attributes (usually the teys) 
from all other entity sets which are linked together via this 
relationship. As we can see in this diagram each officer 
serves in some unit which has an organization, he requests 
some units to be assigned to in his next assignment, he may De 
assigned to some unit, he may Rave studied in some school (s) 
or he may Rave been selected to study in some school, and he 
has some historic data. The entity sets USERID and USERLOG 
are not linked with the other entity sets in the diagram since 
their function is independent from the other ones. 

"Finally, the relational database scheme is presented 


in Figure 26. 


a) 


ORG USER q 


HISTORIC KEnved> UNITORG 


UNIT 


SCHOOLS 


OFFICER 


SERVES 
REQUESTS 
ASSIGNED 
UNIT 


UNIT TORG 


SELEE TED 
SCHOOLS 


HISTERTE 


USERID 
USERLOG 


USERID USERLOG 


Fig. 25. Entity/Relationship Diagram. 


{NAME, SERNO, RANK, NOMYEAR, SPECIALTY, SOURCE, 
NOMDATE, FPROMDATE, ASNWEIGHT,ORIGCITY,ORIGCOUNTY , 
MARSTAT, CHILDREN, WORKWIFE? 

{SERNO, UNITNAME, ENROLDATE, DUTY} 

{SERNO, WCFINISHED, SUBMDATE, UNIT1, UNIT2, UNIT3} 


{SERNO, RANK, SOURCE, ##SPECIALTY,  UNITNAME, 
ASGNDATE, ASNWEIGHT} 

{UNITNAME, CATEGORY, ECHELON, READINES, CITY, 
COUNTY} | 

{ECHELON, READINESS, MACOS, MACOS, mMaco4, NCOSCoO4, 
NCOSTO4,  NCOSAO4, MACOS, NCOSCO3, NCOSTO3, 


NCOSA0O3, MACOZ, NCOSCO2, NCOSTO2Z, NCOSAG2Z, MACOS, 
NCOSCO1, NCOSTO1, NCOSAO1} 
{SERNO, SCHOOLNAME, SCHOOLYEAR} 


{SERNO, SCHOOLNAME, DEGREE, GEdeeT , COUNTRY, 
DURATION, GRADDATE} 

ebro) Sn a) RANE, TRANSTYPE, UNIT, TRANSDATE, 
ORDERID} 


{PFASSWORD, USERNAME} 
{USERNAME, TASK, FPROGNAME, LOGDATE, LOGTIME?} 


Fig. 26. The Relational Database Scheme. 
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ey. Output Design 


The most important feature of an information system 
for users is the output it produces. No matter how reliable a 
system is, if it does not prodtce quality output, users may 
feel the entire system unnecessary. CRef. 6: p. 231] 

The term ‘output’ is applied to any information produ- 
ced by a system whether printed, displayed, or spoken. In our 
case the produced output will be printed and/or displayed, 
depending on how the user wants it. Our goal is to design the 
Output in such a way that it can be easily read and understood 
by the user. 

As discussed earlier the system output will be 11s5ts 
and reports (Figure 13). The length of the output lines will 
be up to 8O characters in order to be able to f1t either on 


the screen or on the standard 8’x11° sheet of paper. 


ae Lists 


(1) List of Scheduled Assignments. This list 15 
produced each time assignment processing function 1s executed. 


The format of this list 1s shown in Figure 27. 


ABD/HAGS DATE: 


mS) OF -SseRBEDULED ASSIGNMENTS FOR_...  (RANK).... 


iSERTAL: NAME UNIT © DUE 
iNUMBER: 1 SOU hee ( DESTINATION « DATE 
20°93 Armstrong David FE. AC/1 AC AS O37 2457 36 
2~246Ff Babbit Almon P. AS ABD/HAGS O5/235/86 
~OB845 Norton Harold G. ABD/HAGS 111 FAB O5/14/86 


Fig. 27. List of Scheduled Assignments. 
a 


(2) List of Officers in Any Desired Order. This 
List (Figure 28) contains all Artillery officers in any of the 


following orders: 
(a) Alphabetical. 
(6b) Rank. 
(c) Specialty. 


(d) Rank and alphabetical. 


ABD/HAGS DATE: ../.22.2 
LIST OF ARTILLERY OFFICERS IN ............ ORDER 
tRANE | NAME ‘SERIAL: SOU-:SPECI—-: UNIT (MARITAL: 
; *+NUMBERIRCE tALTY ' ‘STATUS : 
O08 Down Kenneth R. ZQ001 MA C ABD/HAGS M 
OTF Calaunan Tend G. =OO1rF MA ARTC M 


Fig. 28. List of Artillery Officers in Some Order. 


(3) List of Officers of a Desired Unit. This list 


contains all officers serving ina specific unit. The format 


of the list is shown in Figure 29. 


ABD/HAGS DATE: . <7 =anaeme 


LIS? SF OFF ICERSSZSERYV INGGINe. . cece. 


‘RANK! SERIAL} NAME DUTIES ‘ENROLLMENT ! 
‘NUMBER | DATE | 
Q5 20261 Franclin Adams F. Battalion CDR 05/20/84 
04 20768 Ervin Joseph H. Deputy CDR 06/25/85 


Fig. 29. List of Officers of a *Speci tic Unre- 


a4 


(4) List of Officers of Any Desired Rank. This 
list contains all Artillery officers of any desired rank. The 


format of the list is shown in Figure 30. 


DAMES sa /. - 


ABD /HAGS 
LIST OF ARTILLERY ... (RANK)... 

i‘SERIAL : NAME :SOURCE :SFECIALTY: UNIT (MARITAL | 
;:NUMBER: ; ‘ ‘ ‘STATUS | 
20270 #£=~Bell Richard E. MA Ta 111 FAB M 
2027: Anzini Danniel OD. MA & 113 MHAB M4 
20275 Ariss Bruce F. MA i ABD/HAGS = 
2O2Z7r Gray Joseph W. MA & AC/1 AC D 


Fig. 30. List of Officers of Any Desired Rank. 


(5S) List of Battalion Commanders. This List con- 


tains all Artillery Battalion commanders. Details of the list 


are provided in Figure 31. 


ABD/HAGS DAME? .</me/. 
LIST OF ARTILLERY BATTALION COMMANDERS 
| RANK 5 NAME ‘ UNIT (+ ENROLLMENT DATE _ | 
Os Cabral David T. 212 FAB 06/26/85 
OS Gray Joseph W. 112 FAB 06/18/84 
O05 Franclin Adams P. =~11 FAB O67257 85 
OS Norton Harold G. 111 FAB O7F/O1/84 
a Jarecki Edward L 11 FA/AB OF / eer os 


Fig. 31. List of Battalion Commanders. 


== 
wi 


(6) List of Officers Serving Outside the Branch. 





This list contains all Artillery officers who serve outside 


the Branch. The format of the list is shown in Figure 32. 


ABD/HAGS DATES = 27 eee 


LIST OF ARTILLERY OFFICERS SERVING OUTSIDE THE BRAG 


' RANK | NAME ' UNIT ' ENROLLMENT DATE ! 
O7 Billeb James W. HAGS 03/12/7842 
O6 Wapper Alfrend D. 1 AC 04/20/85 


Fig. 32. List of Officers Serving Outside the Branch. 


b. Reports 


(1) Officer’s Service Time Report. This report 
contains a summary of the major transactions of an officer, 
having occurred during his career. The format of this report 


is shown in Figure 33. 


ABD/HAGS DATES 07 amen 


OBE ILCERYS SERVICE TIVE. REBSat 


SERTAE NUMBERS cece NAMES «= aisteletetetety(s seis aamers < eee 
SOURCE: .~.... SPECIALTY: -.. GRIS TN: 2]. -)- -- - -. 


' DATE _i: TRANSACTION TYPE: RANE: UNIT ORDER_ID 
O° /20/60 Nomination OL MA F. 430/21/621/NDD 
08/20/60 Assignment Ol AS F. 435/24/321/ABD 


Fig. 33. Officer’s Service Time Report. 


a6 


(2) Officer’s Status Report. This report provides 
all information reflecting an officer’s current status. The 


format of this report is shown in Figure 34. 


ABD/HAGS DAME sures pera 
OFFICER’S STATUS REPORT 
NAME oe. ee 
SERIAL NUMBER: ..... 
RANK 3 Sa pea 
SOURCE ee 
SPECIALTY : ee 


NOMINATION YEAR 
MARITAL STATUS 
CHILDREN 

ORIGIN 

UNIT 

ENROLLMENT DATE 
DUTIES 


Fig. 34. Officer’s Status Report. 


B. PHYSICAL DESIGN 


Physical design 1s the process of transformation. The 
logical schema is transformed into a working system. This 
transformation 1s done through the tools that are available 
with the DBMS to be used. (CRef. 1: p. 186] More specifically, 
during this step we will define the files described above’ and 
store them into our database, as well as create the programs 
that will manipulate the files through the dBASE III DBMS. 

The database schema or more simply the files that form the 
database are defined via the Data Definition Language (DDL) 
provided by the DBMS, and the programs are created via the 
Data Manipulation Language (DML). dBASE III provides only one 
language which serves both purposes. 


(oe: 
— f 


5 ie File Definition/Creation 


The files are defined by using the ‘CREATE’ dBASE III 
command. This command allows us to define the structure of 
each file to be used by the database system. Since a file is a 
collection of records of the same type, our job here is to 
describe the structure of the records of each file, i.e., the 
attribute (field) names, their types (character, nmumeric, 
logical, date), and their sizes. Using this command we define 
all -files described above. 

The records of each file are stored in the database by 
using the command ‘APPEND’. Before we use this command we have 
to open the database file the records to be stored in by using 
the command ‘USE fn’, where ’fn’ is the file mame. The records 
are stored sequentially in the database file. 

A small number of records for each file has been 
created and stored in the database, so that we will be able to 


test the programs when they have been completed. 


rae Program Creation 


The next step is to write the software which will 
perform the specified functions by manipulating our database 
via the dBASE III DBMS, and producing the required output. 

Our primary goal is to produce a comprehensive working 
system that can be effectively and easily used by people who 
are not programmers. 

The whole program has been decomposed into a number of 
interconnected modules in a hierarchical top-down fashion, as 
depicted in the program structure chart in Figure 35. The 


actual programs are presented in APPENDIX A. 
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IV. SYSTEM IMPLEMENTATION 


Implementation includes all those activities that take 
place to convert from the old system to the new. The new auto- 
mated system which has been already developed, 1S proposed to 
replace the existing manual system. Froper implementation is 
essential to provide a reliable system to meet the specified 
requirements. 

The aspects of implementation which will be discussed hers 
include hardware requirements, training personnel, conversion 


procedures, and software description/documentation. 


A. HARDWARE REQUIREMENTS 


To implement our system using dBASE III DBMS we need a 
16-bit microcomputer using MS DOS or PC DOS version 2.0. or 
later. Any 16-bit microcomputer that is fully software compa- 
tible with the the IBM FC or IBM FC/XT should be able to use 
the system. The computer must have a minimum of 320K of RAM, 
one 20M byte hard-disk drive, and at least one floppy disk 
drive. Any printer that can print 80 columns of text can be 
used. 

The RAM is allocated as follows. 


| a About SOK bytes for operating system requirements 
(resident part of DOS). 


a 180K bytes for the dBASE III system program. 


3. About 16K bytes for the user’s program currently being 
executed (this is the size of the biggest program). 


4. The rest of memory is allocated to the required working 
areas (buffers for the files currently being open). 

In case we want to use another customer-supplied program 
(word processor, etc.) along with dBASE III, additional memo- 
ry 1S required. 

The hard-disk size has been calculated on the basis of a 


full scale-model as follows. 


1. About 130K bytes for the user programs. 


hJ 


- About 12M bytes for the required database files = and 


index files. These files will contain data for 10,000 
officers (worst case senario). 


i 


About 12K bytes for the format files. 
4. About 100K for text files. 


The rest of the hard-disk space can be used for future 
improvements of the system, as well as for other data storage 


needs. 


B. TRAINING PERSONNEL 


Since the system 1s implemented on a microcomputer, the 
need for training 1s limited only to a few individuals who 
will be both operators and users. Those individuals who are 
going to use the new system should know how to use a micro- 
computer (how to turn on the system, how to insert a diskette, 
when it is safe to turn off the equipment without danger of 
data loss, or how to determine whether a problem arising 1S 
caused by the equipment, software or something they have done 
in using the system), what software they will use for the 
system, and how they should use it to perform a specific task. 

As the above discussion demonstrates, there are two 


aspects to user training: familiarization with the processing 
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system itself (equipment used) and training in using the the 
application (that 1s, the software that accepts the Haan 
processes it, and produces the results). Our intent is to 
train a few users how to use the system in order to accomplish 
their task, and not to teach them how to write new programs. 
Therfore, both aspects mentioned above can be covered ina 


very short time period ( one or two weeks). 


C. CONVERSION PROCEDURES 


Conversion is the process of changing the old system to 
the new one. The method we will use for converting from the 
existing manual to the new automated system is the parallel 
systems. That 15, the Branch will continue to operate the old 
system in the accustomed manner but it also will begin using 
the new system. This method is the safest conversion approach, 
since 1t guarantees that 1f possible errors will arise in 
using the new system (processing errors, inability to handle 
certain types of transactions, or other inefficiencies) they 
will not harm the Branch, since the old system is still in 
use. Another important advantage of the parallel systems ap- 
proach 1s that before the Branch abandons the manual system, 
there will be atrial period for the new system during which 
revealed errors and inefficiencies can be eliminated without 


loss of time, revenue, or service.CRef. 6: p. 532] 
D. SOFTWARE DESCRIPTION/DOCUMENTATION 
The programs which implement our database system have been 


grouped into six categories according to the function they 


performs main program, main-menu and sub-menu programs, 


programs supporting the update operations, programs performing 
the assignment processing, programs producing the required 
lists and reports, and miscellaneous programs. All programs 
(code), as well as lists and reports produced by the programs 


are presented in APPENDIX A. 


1. Main Program 


This program’ controls the entire operation of the 
system and 1t 1s the only program that the user calls by name 
(MAINPROG). After initializing basic dBASE III functions, 
MAINPROG checks if the user 1s authorized to use the database 
system by prompting him to enter his password. Unauthorized 
users are aborted and the program exits automatically to the 
operating system (DOS), displaying the appropriate message. 

In case the user 15 an authorized one, MAINFROG calls 
program GRFLAG which displays on the screen the Greek Flag. 
After a small delay it calls program DBSTITLE which provides 
the title of the database system-and prompts the user to hit 
any key to continue. Then program MMENU is called which is the 
main-menu of the system, and pauses waiting for the user to 
make his choice. Then a CASE statement permits the program to 
branch to the appropriate program group according to the users 
choice or exit either to dBASE III or to the underlying 
Operating system. A DO WHILE loop causes the process to be 
repeated until the user selects option 4 or 3 in which case 
the program terminates and control passes to dBASE III or to 


the operating system, respectively. 


6.3 


Ze Main-Menu and Sub-menu Programs 
a. Main-Menu Program (MMENU) 


This program displays on the screen the main-menu. 
This menu provides a screen of information that shows the user 
what functions can be performed and how to select them. Those 
functions correspond to update operations, assignment proces— 
sing, and report generation. In addition it provides the 
option to exit to either dBASE III or the operating system. 4 
flashing label at the top of the menu informs the user that 
the main-menu 15 on the screen, and a highlighted label at the 
bottom promts him to enter his choice. The user’s choice is 
expressed by one of the numeric characters 1 through %?. A 
‘RANGE’ statement checks each time the user types a character 
and in case it lies outside the specified range an appropriates 
message is displayed. Also the ‘’FICTURE ‘9% “% statement 
gQuarantees that one program does not accept alphabetical or 
Other characters. The subsequent sub-menus described below 


work in a similar fashion. 
b. Sub-menu Programs 


Three sub-menus corresponding one per basic 
function of the system (update operations, assignment proces- 
sing, report generation) quide the user to perform the appro- 
priate task. Those sub-menus are created by the following 
programs. 

(1) UPDTMENU. This program provides a screen of 
information concerning the update operations. Via this program 
the user can insert, modify, or delete records from the files 
whose names are presented on the screen. UFDTMENU is called 
by the DBUFDATE program in case the user selects option it from 
the main-menu. 


64 


(2) ASPRMENU. This program displays information 
concerning the assignment processing operations. Through this 
program the user can access any of the programs which perform 
the officers’ assignments. ASFRMENU is called by the ASSIGNTS 
program in case the user selects option 2 from the main-menu. 

(3) RGMENU. This program provides a screen of 
information concerning the report generation operations. From 
this submenu the user can access any of the programs which 
produce the required lists and reports. RGMENU is called by 


the REPORTS program in case the user selects option 3 from the 


main-menu. 


Si. Programs Supporting the Update Operations 


This group of programs performs all the update oper a- 
tions. That 1s, using these programs we can insert new records 
into the database files, as well as modify or delete existing 
records from the database files. The programs which implement 


those operations are the following: 


a. DBUPDATE 


This program controls the entire update operation 
and 1s executed whenever the user selects option 1 from the 
main-menu. First the program calls the UPDTMENU program which 
is the update sub-menu we described above, and pauses waiting 
for the user to make his choice which is stored in the vari- 
able ‘’updtcode’. Then a CASE statement permits the program to 
branch to the corresponding update program or exit to main- 
menu. A DO WHILE loop allows the program to keep running until 


the user decides to exit to main-menu. 


b. INSERTOR 


This program allows the user. to insert new records 
into the OFFICER file which is the main database file. It is 
called by the DBUFDATE program in case the user selects option 
i from the update sub-menu (UPDTMENU program). 

The program calls the MFRAME program which dis- 
Dlays a window on the left half of the screen into which all 
program messages and user data are placed during the execution 
of the program. A message is displayed on the screen prompting 
the user to enter the serial number of the officer to be 
inserted into the file. Then the program searches the OFFICER 
file using as key the officer’s serial number to see whether 
the record exists in the database or not. If the search 15 
successful, a message is displayed informing the user that the 
record already “ists, and he is) asked if there are more 
records to be inserted into the database. In case the search 
operation is unsuccessful (that is, record does not exist in 
the database) the user is asked if he needs the codes required 
for the insert operation (rank, source, specialty, and marital 
status codes). If his answer is ’Y’ (yes) the program WINDOWS 
is called which displays a window occupying the right half of 
the screen containing all codes and their explanation. [In this 
way the user can have on-line help and the risk of incorrect 
data input is reduced. Next the format of the record to be 
inserted is displayed on the left frame and the cursor is 
positioned at the first field. 

When the user finishes the input of data for Ehe 
particular officer, the record is appended to the OFFICER file 
and the necessary entries are created in some other database 
files. Namely a record is created into the HISTORIC file 
containing the officer’s serial number, the nomination date, 


the order by which the nomination of the officer has been 
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known, and the unit in which he serves. The unit mame and the 
order identification are entered By the user. Then the created 
record is displayed on the screen. AlsSO a record is created 
into the REQUESTS file containing only the offficer’s serial 
number. All other fields remain empty. In case the source of 
the officer is ‘’NCOS’ (Non-Commissioned Officers School), a 
record 15 created into the SERVES file containing his serial 
number the unit he serves and the enrollment date. 

A DO WHILE loop keeps the program running as long 
as the user’s answer to the prompt ’MORE INSERTIONS? (Y/N)’ is 
oY 


c. INSERTSR 


This program permits the user to insert new 
records into the SCHOOLS file. No other files are updated 
during the execution of this program. The program is called by 
the DBUPDATE program in case the user selects option 2 from 
the update sub-menu. 

An officer can have more than one record in the 
SCHOOL file depending on what and how many schools he has gra- 
duated from. The process goes in a similar way with the 
described above (CINSERTOR program) except that the search is 
based on the compound key consisting of the fields serial 
number and school name ({SERNO,SCHOOLNAME}). The user’s answer 
“N’ to the program’s prompt ‘MORE INSERTIONS? (Y/N) % causes 


the program to be terminated. 
d. INSERTHR 
Through this program the user can insert new 


records into the HISTORIC file. It is called by the DBUPDATE 


program whenever the user selects option 3 from the update 


sub-menu. The only legal transactions which can cause new 
records to be inserted into the HISTORIC file from this 
program are those concerning retirement or death. ALL other 
transactions are aborted by the program. The process is simi- 


lar with that described above. 
e. MODIFYOR 


This program is called by the DBUFDATE program in 
case the user selects option 4 from the update sub-menu, and 
allows him to modify records into the OFFICER file. 

When the program is entered, it calls the MFRAME 
program whose purpose has been explained during the INSERTOR 
program description. Then a message prompts the user to enter 
the serial number of the officer whose record is to be modifi- 
ed. The program searches the OFFICER file using as the key the 
serial number typed by the user. In case of an unsuccessful 
search an appropriate message is displayed and after a small 
delay the user is asked if he wants to perform more modifica- 
tions. If his answer is ‘Y’ (yes) the process is repeated. a 
the case of a successful search a menu is displayed inside the 
frame created by the MFRAME program that shows the user which 
of the record-fields can be modified and prompting him to 
enter his selection. The fields which can be modified in the 
OFFICER file are the ‘NAME’, ‘RANK’ and ‘PROMDATE’ (promotion 
date), and those concerning the family status (’MARSTAT’, 
“CHICEREN “WOREWIFE’). After the user’s response, the 
structure of the fields to be modified are displayed on the 
screen (inside the frame) and the cursor 1s positioned at the 
first field. After the displayed fields have been modified by 
the user, the modified record is displayed in an appropriate 


format. 
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| In case the rank status has been changed, a record 
in the HISTORIC file is automatically created including the 
new transaction (PROMOTION). The new record is displayed on 
the right half of the screen ina formatted way. 

The process keeps going until the user’s answer to 


the program’s prompt ‘’MORE MDIFICATIONSY (Y/N) "% ais ‘N’. 
#. MODIFYRR 


This program allows the user to modify records in 
the REQUESTS file, and it is called by the DBUPDATE program in 
case the user selects option 3 from the update sub-menu. All 
fileds of the records under modification can be changed except 
the serial number which 1s the primary key. The process 15 
Similar with that described above, except that 1t 1S Simpler 
since no other files are updated during the execution of this 
program. The program terminates when the user’s answer to the 


program’s prompt ’MORE MODIFICATIONS? (Y/N)’ is ‘N’. 
g. DELETEOR 


Through this program we can delete records from 
the GFFICER file. [t 15 called by the DBUFPDATE program when- 
ever the user selects option 6 from the update sub-menu. The 
process goes as follows. 

The program calls the MFRAME program (described 
Carlier?) and prompts the user to type the serial number of the 
officer to be deleted. Then using the serial number as the key 
searches the OFFICER file to find the corresponding record. In 
case of an unsuccessful search an appropriate message 1s dis-— 
played and the user is asked if he wants to continue with more 
deletions. If his answer is ‘Y’ the process 1s repeated. In 


case of a successful search, the record is displayed on the 
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screen along with the prompt ‘DELETE? (Y/N)’. In this way the 
user has the chance to prevent accidental deletions of 
records. If the user’s answer is ‘Y’ the record is marked for 
deletion. Then the program searches the files HISTORIC, 
SERVES, REQUESTS, and SCHOOLS with the same key, and all 
records that match with the key are marked for deietion. 

The process keeps going until the user’s answer to 
the program’s prompt ‘MORE DELETIONS? (Y/N) is ‘NN’. In “ties 
case, all files which.include records marked for deletion are 
packed, and control passes to the DBUPDATE program. 

File packing is a time-consuming operation since 
the entire file is searched and marked for deletion records 
are removed. The situation is even worst in case the fils 
iS an index one, since after the file packing the file is re- 
indexed. For this reason, it 1S recommended the delete opera- 
tions to be deferred until before the end of the user session 


with the system, whenever possible. 


4. Programs Performing the Assignment Processing 


Assignment processing is the most difficult part of 
the system. Two programs for each rank perform the assignment 
process. During this process the necessary criteria 
(described during the system’s design) are examined and a 
temporary file called ASSIGNED is created. This file contains 
the assignments of the officers for each rank. Although these 
programs work in a Similar fashion, we did not write only one 
program to perform the entire assignments, because this 
program would be very big and difficult to manage. The 


programs and their function are described below. 
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ae ASSIGNTS 


This program controls the entire assignment pro- 
cessing, and it is called from the MAINPROG program whenever 
the user selects option 2 from the main-menu. The program 
calls the ASPRMENU program (assignment processing sub-menu)? 
described earlier, and pauses waiting for the user to make his 
choice which is stored in the variable ‘’asprcode’. Then a CASE 
statement allows the program to Branch to the corresponding 


program and to perform the assignments for the particular rank 


or exit to the main-menu. 
b. ASSIGNO1 


This program performs the assignments of the offi- 
cers whose rank is ‘017% (ist lieutenants). It 1s called by the 
ASSIGNTS program in case the user selects option 1 from the 
assignment processing sub-menu. 

First the program calls the MKAUXFL1 program which 
builds the auxiliary files FILE3, FILE4, and FILES. The file 
FILES contains all ist lieutenants whose last assignment took 
Place three or more years before the present date (system’s 
date), their present unit, the requested units for their next 
assignment, and their assignment weights. -. The other two auxi- 
liary files (FIL6,FILET) are copies of the file FILES. Then it 
calls the WINDOW1 program which places a frame on the screen 
into which messages concerning the assignment process are 
displayed, and starts the assignment processing as follows. 

The assignment processing is a two-pass procedure. 
During the first pass the program loops on the file FILET ta- 
king one record at a time and tries to satisfy the requests of 
the officer under examination. That is, it takes the first re- 


quested unit and searches the FILES file to find an officer 
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whose present unit is the one requested by the other officer. 
In case of a successful search, the program searches the FILES6 
file to see if the requested unit 1s also requested by another 
officer. If it is, then checks the assignment weights. In case 
he has the greatest weight or his assignment weight is equal 
to the greatest assignment weight found and his marital status 
1S not equal to ’S’ (single), his request i185 satisfied, his 
record in the FILES file is marked for deletion (so that it 
will not be examined during the next loop), the record in the 
FILES 41 2e ses marked for deletion (this means that the reque- 
sted unit has been granted and 1t cannot be disposed to an- 
other officer), and zero (0) assignment weight is given to the 
officer. This number is going to be added to the total assign- 
ment weight in the corresponding field of the OFFICER file la- 
ter. This weight 1S maintained for each officer during his 
career and it 1S ani important criterion for the assignment 
nrocess. In case one or more.of the conditions described above 
1s false the program takes the second requested unit and the 
same process is repeated. If the officer’s request for the 
second unit is satisfied, the assignment weight which is given 
him 1s one (1) this time. Again if the officer’s second requ- 
est cannot be satisfied, the program takes the third requested 
unit and the same process is repeated. If his request for the 
third unit is satisfied, the assignment weight is two (2). Fi- 
nally, if none of the three requests has been satisfied during 
the above process, the assignment of the officer is deferred 
for the second pass. The output of the first pass is the crea- 
tion of one record per officer into the ASSIGNED file contain- 
ing among other fields the field ‘unitname’. This field, 
in case of a satisfied request contains the name of the new 
unit the officer 1s assigned to, or an asterisk ’°*’ in the 


case of unresolved assignment. 





During the second pass the auxiliary tile FILES 1s 
created which has exactly the same structure with the ASSIGNED 
file but it contains only the unresolved during the first pass 


assignments (i1.e., UNITNAME 


‘*#’). Then the program loops) on 
this file taking one record at atime and tries for another 
time to satisfy unsatisfied requests. The process 1s Similar 
with the first pass. If the requests for an officer cannot  0Obe 
satisfied even this time, the program checks the FILES file to 
find an available unit (not deleted record) in which the 
officer can serve according to his source and specialty. In 
the case of a successful search the contents of the ‘unitname’ 
field into the ASSIGNED file for the corresponding officer are 
replaced with the unit name found in FILES, the record in the 
FILES file is marked for deletion, and the assignment weight 
three (3) 15 given to the officer. In case of an unsuccessful 
search in the FILES file, there is no way for the officer to 
be assigned to a new unit during this year, and the corre- 
sponding record into the ASSIGNED file is marked for deletion. 

After the last record of the FILES file. has been 
examined and the end of file is encountered, the ASSIGNED file 
is packed, all the auxiliary files are deleted, and control 


passes to the ASSIGNTS program. 
c. MKAUXFL1 


This program builds the auxiliary mmes FILeS, 
FILES, and FILE? which are exactly the same. Those files whose 
use has been explained above are built by combining the basic 
database files OFFICER, SERVES, and REQUESTS (copy and join 
operations). The purpose of those files is to isolate the of- 
ficers under assignment whose rank is ‘017 (ist lieutenants), 
and who Rave all the requirements for the assignment process, 


gathering all the data into only three small files. The final 
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result 1s that By having all required data into fewer and 
smaller files we reduce the overhead of the search operations 
(FIND, LOCATE, and SEEK) and Sane up the processing. 

The program is called by the ASSIGNO1 program. ie 
calls the program WINDOW which displays on the screen a frame 
into which messages concerning the process of building the 
auxiliary files are placed. After the auxiliary files have 
been created the program terminates and control 1s passed back 


to the ASSIGNO1 program. 
d. ASSIGNO2 


This program performs the assignments of the 2nd 
lieutenants. [Tt 1s called by the ASSIGNTS program in case the 
user selects option 2 from the assignment processing sub-menu. 

. The process of the program goes ina similar way 


as the ASSIGNO1 program with the following exceptions: 


(1) First, the 2nd lieutenants who graduate from the 
Military Academy are assigned to the Artillery School 
for i-year training. As it 15S expected no assignment 
weights are examined, neither requests exist. 


ra) Next, the @nd lieutenants who complete their  Ii-year 
training in the Artillery School are assigned to the 
Artillery Recruit Training Center. Again no requests or 
assignment weights are examined. 


(3) Then all 2nd lieutenants whose source is the Military 
Academy and who have served in the Artillery Recruit 
Training Center are assigned to the combat units in 
which they can serve according to the organization 
table of the units. During this process only the 
officers’ requests ares examined, since the assignment 
weight is zero (0) for all these officers. 


(4) Finally the assignments of the @nd lieutenants whose 
source is the Non-Commissioned Oficers School and who 
have completed the necessary time in the same unit 
(greater than or equal to 3 years) are performed. 


e. MKAUXFL2 


This program is called By the ASSIGNO2 program, 
and it builds the required auxiliary files for the assignment 
processing of the @nd lieutenants. Its function 15 exactly the 
same as the MEAUXFLI described above. The only difference 15 
that the auxiliary files Built contain data concerning the Zend 
lieutenants. The program calls the WINDOWi program, and when 
all the auxiliary files Rave been Built control passes Dack to 


the ASSIGNO2 program. 
f. ASSIGNOS 


This program performs the assignments of the 
captains. It 1s called By the ASSIGNTS program in case tha. 
user selects option 3 from the assignment processing sub-menu. 
Its function is exactly the same as the ASSIGNO1 program 
described earlier. The only difference is that it makes = as- 
Signments for the captains this time. 

The program first calls the MKAUXFL3, and next the 
WINDOW] programs. After its termination, control passes to the 


ASSIGNTS program. 
Qe MKAUXFL3 


TA1S program is called by the ASSIGNOZ program du- 
ring the captains’ assignment processing. Its structure and 
function 1s exactly the same as that described in MKAUXFLiI. 
The only difference is that the auxiliary files FILES, FILE64, 
and FILE?’ contain data concerning the captains to be assigned. 
The program calls the WINDOW program. After its termination, 
control passes to the ASSIGNO3Z program. 


h. ASSIGNO4 


THis program performs the assignments of the 
majors and it iss called By the ASSIGNTS program in case the 
user selects option 4 from the assignment processing sub-menu. 
Its structure and function is almost the same as the ASSIGNOl1 
program with the following exceptions. 

(1) First the majors graduating trom the War College ars 
assigned to staff units within the Branch. Assignment 


weights and officers’ requests are taken into 
consideration. 


Ca Next, the rest of majors whose last assignment took 
Place two or more years before the present date 
(system’s date), are assigned to units inside or 
outside the Branch, or to the War College for training. 
Officers assigned to staff units or to units outsides 
the Branch must have graduated from the War College. 
Assignment weights and officers’ requests are examined. 
An officer is assigned to the War College for training 
only in case he has been proposed by the Branch. Por 
this reason, the file SELECTED is checked each time a 
major’s assignment 1S processed. 


The program calls the MEAUXFL4, and WINDOW! 


programs. When the program terminates, control passes to the 


ASSIGNTS program. 


i. MKAUXFL4 


This program is called by the ASSIGNO4 program and 
builds the required auxiliary files for the assignment proces-— 
sing of the majors. Its structure and function is similar to 
the MEAUXFL1 program. The program calls the WINDOW program. 
When the program terminates, control is passed to the ASSIGNO4 


program. 


j- ASSIGNOS 


This program performs the assignments of the lieu- 
tenant colonels. It is called by the ASSIGNTS program in case 
the user selects option 3S from the assignment processing sitb- 
menu. Its structure and function is almost similar to the 
ASSIGNO1 program, with the following exceptions. 


(1) The lieutenant colonels can be assigned to units inside 
or outside the-Branch. 


(2) Officers assigned to staff units or to units outside 
the Branch must Rave completed the requirements for 
their rank, and they must Nave graduated from the War 
College. 

The program calls the MEAUXFLS, and WINDOQWI 


programs. After its termination, control passes to the 


ASSIGNTS program. 


kK. MKAUXFLS 


This program is called by the ASSIGNOS program and 
Dbur.ids the required files for the assignment processing of the 
lieutenant colonels. Its structure and function 1s similar 
to the MEAUXFL1 program. The program calls the WINDOW program. 


When it terminates, control passes to the ASSIGNOS program. 


1. ASSIGNOS6 


This program performs the assignments of the colo- 
nels. [t is called by the ASSIGNTS program in case the user 
selects option 6 from the assignment processing sub-menu. Its 
function is similar to the ASSIGNOS program. The program 
Calls the MEAUXFL46, and WINDOW1L programs. When the program 


terminates, control passes to the ASSIFNTS program. 


~J 
~J 


me. MKAUXFL6 


This program is called by the ASSIGNO6 program and 
builds the required auxiliary files for the assignment proces— 
sing of the colonels. Its structure and function is similar 
to the MEAUXFLI program. The program calls the WINDOW program. 
After its termination, control passes back to the ASSIGNO6 


program. 


Je Programs Producing the Required Lists and Reports 


All programs producing the required lists and reports, 
have been kept small and simple. Using the report generator 
facility of dBASE III, you can create report formats up to 890 
columns wide ina very simple way. You simply give a file name 
to the required report, and define its format in the way that 
fits your needs. Defining the format means providing dBASE III 
with the title of the report, the size of the page, spacing, 
number of characters per line, what fields of the records will 
be printed, and what the field headers will be. ALL the rest 
of the work is done by dBASE III. 

Sample lists and reports produced by the programs 


described below, are presnted in APPENDIX A. 


a. REPORTS 


This program controls the entire operation of this 
group of programs. It is called by the MAINFROG (main program) 
program in case the user selects option 3 from the main-menu. 
First, the program calls the RGMENU program which 1s) the 
report generator sub-menu described earlier, and pauses 
waiting for the user to make his choice which is stored in the 


variable ‘’repcode’. Then a CASE statement permits the program 
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to branch to the appropriate program within the same group of 
programs according to the users choice or exit to the main-— 
menu. A DO WHILE loop keeps the program running until the user 


decides to exit to main~menu. 


b. LISTi 


This program is called by the REFORTS in case the 
user selects option i.from the report generator sub-menu, = and 
its purpose is to produce a list of the scheduled assignments 
for some requested rank. First, the program calls the WINDOW? 
Program which displays a window on the screen into which 
program messages and user data or answers are placed. A mes- 
sage prompts the user to specify the rank. Then, according to 
Peers tne user enters, the program Builds the auxiliary 
file AUXFILEIL which contains all necessary data for the 
@eeeeoced list. This file is built By combining the OFFICER, 
REQUESTS,and SERVES file (COPY and JOIN operations). When the 
file is ready, the message /PRINTER OUTPUT? (Y/N) ’% prompts the 
user to specify if Re wants a hardcopy printout. If his answer 
is “Y’ (yes), another message 1s displayed requesting from the 
user to set the printer on and to hit any key to continue. 
Then the program pauses waiting for the user’s action. Final- 
ly, the command ‘REPORT FORM MELIST1I’ causes the requested 
list to be displayed on the screen, or both displayed on the 
screen and printed By the printer. MELIST1 is the format file 
we have defined in the way we described earlier. After this, 
the auxiliary file is deleted and control passes to the 


REPORTS program. 
a. ULkSi2 
This program is called by the REPORTS program in 


case the user selects option 2 from the report generator 


wo 


sub-menu, and creates a list of officers serving in some 
requested unit. 

The program’s function from the user’s side of 
View 15 Similar to the LISTi program described above. The 
difference is that this time, the user 1s prompted to specify 
the unit name, and that the format file is called MEKELIST2. The 
program calls the WINDOWS program whose purpose has been 
explained in the previous program. After the requested output 


has been produced control passes to the REPORTS program. 
d. LISTS 


TRIS program provides a list of all Artilery offi- 
cers in some requested order. It 1s called by the REPORTS pro- 
gram in case the user selects option 3 from the report gene- 
rator sub-menu. 

First, the program calls the WINDOW? program. Then 
a screen of information concerning the possible orders is dis- 
played inside the window, and a message prompts the user to 
select the order he likes (by seniority, alphabetically, 5Bby 
specialty, etc.)}. According to the users choice, a CASE 
statement allows the program to select the appropriate index 
file. We do not use the’SORT’ dBASE III command to sort a files 
in some order, because it is time and space consuming. 
Instead, we use existing index files which are always 
presented in the order of the field on which they are indexed. 
In all other aspects the program works in the same way as the 
LIST1i and LIST2 programs except that the format file is called 
MELIST3 this time. 


e. LIST4 
This program is called by the REPORTS program 1n 


case the user selects option 4 from the report generator 


BO 


sub-menu. The program produces alist of officers of some 
requested rank. The process goes exactly in the same way as 


the LIST1 program. The format file is called MKLIST4. 


#. LISTS 


This program produces a list of the Artillery Bat-— 
talion commanders, and it is called by the REFORTS program 
in case the user selects option 3S from the report generator 
sub-menu. During its execution the user is asked to specify 
only the device on which he wants the output (screen or print-— 
er). The format file is called MKLISTS. In all other aspects 


the process goes exactly in the same way as in LIST1 program. 


g- LISTS 


This program is called By the REFORTS program in 
case the user selects option & from the report generator sub- 
menu. The program provides a list of all officers serving out-— 
Side the Branch. The report file is called MELIST6. The user 
is asked by the program to specify only the device on which 
he wants the output. The program works in the same way as the 


LISTS program. 


h. REPORT1 


This program creates the service time report § =“for 
any requested officer. This report contains all the major 
transactions of an officer occurring during his career. It is 
called by the REFORTS program in case the user selects option 
¢ from the report generator sub-menu. The program searches the 
HISTORIC file and prints out or displays on the screen in an 


appropriate format all records whose key matches with that 
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typed by the user when he was asked by the program to enter 


the officer’s serial number. 


1. REPORT2 


This program is called by the REPORTS program iin 
case the user selects option & from the report generategmeea. 
Menu. It provides a status report for any requested officer. 
This report contains all information on an officer’s current 
status. The database files which are searched are the OFFICER 
and SERVES. 


6. Miscellaneous Programs 


This group includes all programs which do not perform 
any processing of data. Their purpose is to provide formatted 
messages, and display windows on the screen, required during 


the database processing. These programs are the following: 


a. GRFLAG 


This program is called by the MAINFROG (main 


program), and forms on the screen the Hellenic Flag. 


b. DELAY 


This program 1s called by most of the programs du- 
ring the processing, and makes various program messages stay- 


ing on the screen for a certain time period. 
c. DBSTITLE 
This program is called by the MAINFROG program and 


displays on the screen the database system title. 


Bz 


d. MFRAME 


This program is called by the INSERTOR, MODIFYOR, 
and DELETEOR programs, and it displays a frame on the left 
half of the screen into which messages and formatted records 


are placed. 


e. FRAME 


Tens program is called by the £%INSERTOR and 
MODIFYOR programs, and displays a small window into whicn for- 


matted records from the HISTORIC file are placed. 


#. WINDOW 


This program is called By the MEAUXFLI, MEAUXFLZ, 
MEAUXFL3, MEAUXFL4, MEAUXFLS, and MEAUXFLG, and its purpose 15 
to display a window on the screen, into which messages inform- 


ing the user about the processing, are displayed. 


g. WINDOW! 


This program is called by the ASSIGNO1L, ASSIGNOZ2, 
ASSIGNO3, ASSIGNO4, ASSIGNOS, and ASSIGNOS programs during the 
assignment processing, and iit serves the same purpose as the 


the previous program. 
h. WINDOW2 
This program is called by the LIST1I, LIST2, LIST3, 


LIST4, LISTS, LIST&, REPORT1, and REPORT2 programs, and it 


provides the same function as the WINDOW program. 


i. WINDOWS 


This program is called by the INSERTOR program in 
case the user’s answer to the program’s prompt ‘DO YOU NEED 
CODES? (Y/N) is ‘YY’. The program provides a window on the 
right half of the screen into which all codes concerning rank, 
source, specialty, and marital status, required during the 


insertion of new records into the OFFICER file, are displayed. 
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V. CONCLUSIONS AND RECOMMENDATIONS 


This thesis develops a personnel database system mnodel, 
suitable for implementation within the Artillery Branch 
Directorate of the Hellenic Army General Staff. This system 
could also be applied to any Branch Di RQecer Se with minor 
modifications. 

The main goal is to increase productivity, effectiveness, 
accuracy, and speed, as far as personnel management is 
concerned, as well as to decrease the national expenditure, 
and release manpower for other purposes. Additionally, the 
Branch Director will be able to make faster and better intorm 
ed decisions concerning personnel. 

dBASE III was used as the DBMS, since it 15 a relational 
“model, which is simple and understandable, increases independ- 
ency, reduces redundancy, and it is very popular in the micro— 
computer world. In addition, dBASE III contains its own pro- 
gramming language, which is a high level structured language, 
very efficient for data manipulation. 

I have implemented the officers’ assignment processing, 
and the most usually needed lists and reports, but a wide va- 
riety of other reports, or simple queries could also be 
created. Emphasis was given to provide simple and user friend- 
ly programs, in order to help the users of the system and make 
their job easier. 

The software life cycle has been taken into account during 
the program development. Since there was no previous experi- 
ence on the topic of assignment processing, and no concrete 
specifications about the organization of the units (the tables 
used are figurative), I have decided to follow the prototyping 


approach in order to create the programs. This means that some 
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of the programs may need further improvements. This can be 
done in close cooperation with the Branch, which will be the 
actual user of the system. Frograms have been kept small and 
are easily modified to meet future improvement needs. In this 
application I have used the top-down design approach which 
serves the above goal. 

In this implementation I have used files whose records 
include a certain amount of data. Further improvements might 
add more fields in the records, so that the system can provide 
expanded information. 

This thesis constitutes a good basis for further improve- 
ments in the area of personnel management and especially in 
the field of automation of the officers’ assignment processing 


in the Hellenic Army. 
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APPENDIX A 
DATABASE SYSTEM PROGRAMS 


A. MAIN PROGRAM 


oo ee ee ee PROGRAM MAINPROG HH HH HHH HHH HE 


* This is the main program, which controls the operation of 
* the entire database system 


CLEAR 

* Initialize basic dBASE III functions 
SET TALK OFF 

Ser DELIMITER OFF 

SET HEADING OFF 

SET EXACT ON 

* Declare global variables 


PUBLIC psw 

Segre ’ ‘’ TO psw 

a 190,18 SAY 7° TEMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMME , ” 
2 11,18 SAY ‘L9? lee 


@ 12,18 SAY ‘“HJIMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMO « ¢ 


* Check user’s authorization 

a 11,30 SAY ‘ENTER FASSWORD —->’ 
Se? CONSGLE GFF 
ACCEFT TO psw 
SET CONSOLE ON 

USE userid 

LOCATE FOR password = UPFER (psw) 


* Unauthorized user. Exit to operating System 
See Or () 
SET COLOR TO W* 
a 11,28 SAY ° UNAUTHORIZED USER . 
DO delay 
SET COLOR TO W 
QUIT 
ENDIF 


* Authorized user 
STORE .T. TO continue 
DO grflag 

DO delay 

DO dbstitle 


DO WHILE continue 


DO 


* perform appropriate function depending on user’s choice 


DO 


END 
ENDDO 


MMEN LU 


CASE 
CASE 


CASE 


CASE 


CASE 


CASE 


CASE 


SET TALK ON 
SET DELIMITER ON 
SET EXACT OFF 
SET HEADING ON 


CLEAR 
RETURN 


ALL 


selection = 
DO dbupdate 
selection = 
DO assignts.- 
selection = 
DO reports 

selection = 


STORE .F. TO continue 


selection = 
QUIT 


1 


~“ 
¢ 
= 


= 


4 


ra 
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B. MAIN-MENU AND SUB-MENU PROGRAMS 


i Main-Menu program 


eee ERE EEE EE PROGRAM MMENU He HHH HHH EHH HHH HE 
* This program displays the system main-menu on the screen 


CLEAR 

PUBLIC selection 

STORE O TO selection 

a 4,18 SAY ’ TEMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMME , ’ 
a 3,18 SAY ‘’L9 ea 
2 6,18 SAY ’HIMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMI< ’ 
SET COLOR TO W* 

a S,35 SAY ‘MAIN MENU’ 

SET COLOR TO W 


2 7,18 SAY /@IMMMMMMMMMMMMMMMMMMMMMMMMM MMMM, 
a 98,18 SAY ’: :/ 
2 9,18 SAY ’: DATABASE UPDATE:..........-+--- 1 
@ 10,18 SAY °’: ASSIGNMENT PROCESSING:.........-- a : 
@ 11,18 SAY ’: REPORT GENERATOR: .....----eeeeee = 
@ 12,18 SAY ’: END OF DATABASE SESSION:........- 4 
@ 13,18 SAY ’: See) Oe) S :/ 
@ 14,18 SAY ’: 
@ 15,18 SAY ’: 2 / 
@ 16,18 SAY ’: 7 
2 17,18 SAY “HMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM- 
SET COLOR TO W+ 
2 15,29 SAY ‘ENTER YOUR SELECTION -?:’ , 

GET selection PICTURE ’9’ RANGE 1,5 

READ 
SET COLOR TO W 
RETURN 
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Fa Sub-Menu Programs 


He HHH HHH HHH HHH HEHEHE PROGRAM UPDTMENU HHH EH HH HE HE EHH 


* This ptogram displays on the screen the update sub-menu 


CLEAR 

FUBLIC updtcode 

STORE © TO updtcode 

®@ 4,18 SAY “ITKMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMME , ’ 
a 3,198 SAY “aiee Lae ” 
2 6,18 SAY °“HIMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMO < “ 
SET COLOR TO W* 

a 35,35 SAY ‘UPDATE MENU’ 

SET COLOR TO W 


a 7rf,18 SAY 7% IMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMeM , / 
a &, 18) Sane: ae 
a 9,18 SAY ‘°: INSERT RECORDS INTO OFFIGERSE iba: ee | 
a 10,18 SAY °: INSERT RECORDS INTO SEMBDES Fite: 2 
a 11,18 SAY “%: INSERT RECORDS INTG HISTOGRIG FILE: .. ae 
@ 12,18 SAY ‘°: MODIFY REGORDS PREM OPER IGeh tf (ce; . ee 4 37% 
2 13,18 SAY ’: MODIFY RECORDS FROM REQUESTS FILE: 33) 22a 
2 14,18 SAY ’: DELETE RECORDS FROM GFFICER FILE:.:.. See 
@ 15,18 SAY °°: EXIT 10 MAINMENG ee eee: = + ce) cee Tt / oe 
a 16,18 SAY ‘°: ee 
ai? 1S Seay.“ s : atk 
a 18,18 SAY “°: n° 
@ 19,18 SAY ‘’HMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM MMMM -=. ¢ 


SET COLOR TO W+ 
a 1i7,29 SAY ‘ENTER YOUR SELECTION —-+*:/7, 
SE al PICTURE ‘ORANGE 177 


SET COLOR TO W 
RETURN 
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HHH HH RHR HHH HHEHE PROGRAM ASPRMENU HH He He HH He HE HH HH HE 


* This program displays on the screen the assignment proces- 
* Sing sub-menu 


CLEAR 

PUBLIC asprcode 

STORE O TO asprcode 

@ 4,18 SAY 7% TEMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMME., ’ 
foe, 1G SAY ‘LI Eve 
a 6,18 SAY “HIMMMMMMMMMMMMMMMMMMMM MMMM MMMM < 
SET COLOR TO W* 

ad 3,28 SAY ‘ASSIGNMENT FROCESSING MENU’ 

SET COLOR TO W 


a 7,18 SAY 7% IMMMMMMMMMMMMMMMMMMMMMM MMMM MMMM MMMM, 7” 
a 8,18 SAY ’: , = 
a 9,18 SAY ’: ist LIEUTENANT ASSIGNMENT FROCESSING:..1 :’ 
@ 190,18 SAY ’: @nd LIEUTENANT ASSIGNMENT FPROCESSING:..2 :’ 
oeert,i18 SAY “‘: CAPTAIN ASSIGNMENT FPROCESSING:......202035 3” 
Meg ls SAY ‘: MAJOR ASSIGNMENT FROCESSING:.....cccee- 4 :% 
op is,18 SAY °: LIEUT. COLONEL ASSIGNMENT PROCESSING:..3 :° 
fetes SAY ‘°: COLOGNEL ASSIGNMENT PROCESSING:......... = 
eee See CE Cn MON MENUS... oe ee tc Tae hs 
@ 16,18 SAY “°: aa 
a 17,18 SAY °: ‘ 
a 18,18 SAY ’: cay 
a 19,18 SAY ’HMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM= ” 
SET COLOR TO W+ 
@ 17,29 SAY ‘ENTER YOUR SELECTION -*’, 

GET asprcode PICTURE ’9’ RANGE 1,7 

READ 
SET COLOR TO W 
RETURN 
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HHH HHH HHH HH HHH HHH HHH PROGRAM RGMENU HH HHH HHH KHHHHEKHHHHKE 


* This program displays on the screen the report generator 
+ sub-menu 


CLEAR 

PFUBLIC repcode 

STORE © TO repcode 

ga 3,14 SAY ”% TEMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMME , ’ 
a 4,14 SAY ‘L9 ES? 
9 3,14 SAY “HIMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMI = ’ 
SET COLOR TO W* 

a 4,30 SAY ‘REPORT GENERATOR MENU’ 

SET COLOR TO W 


2 6,14 SAY 7 IMMMMMMMMMMMMMMMMM MMMM MMMM MMMM 7” 
® *,14 SAY ’: : <2 
® 8,14 SAY ‘’:LIST OF SCHEDULED ASSIGNMENTS:........ccccee- 1s’ 
@ 9,14 SAY ’:LIST OF OFFICERS OF A SPECIFIC UNIT:........- me? 
® 10,14 SAY ’:LIST OF OFFICERS IN ANY DESIRED ORDER:.......- a 
@ 11,14 SAY ’:LIST OF OFFICERS OF A SPECIFIC RANE:........- 4s’ 
@ 12,14 SAY ’:LIST OF BATTALION COMMANDERS: .......00ceee eee =e 
@ 13,14 SAY ‘’:LIST OF OFFICERS SERVING OUTSIDE THE BRANCH: . 4: ’ 
®@ 14,14 SAY ‘’:OFFICER’S SERVICE TIME REFORT:.......2ecceeess oe 
® 15,14 SAY ‘’:OFFICER’S STATUS REPORT:...... ccc ccc cue ncuees 8: ’ 
@ 16,14 SAY ‘:EXIT TO MAIN MENU:.....-20-55c0ceneuns = ee 9: / 
® 17,14 SAY /: :/ 
®@ 18,14 SAY ’: nad 
® 19,14 SAY “’: 4 
@ 20,14 SAY (HMMMMMMMMMMMMMMMMMMMMM MMMM MMMM 7” 


SET COLOR TO W+ 

@ 18,27 SAY ‘ENTER YOUR SELECTION ->’, 
GET repcode PICTURE ‘9’ RANGE 1,9 
READ 

SET COLOR TO WwW 

RETURN 


C. PROGRAMS SUPPORTING THE UPDATE OPERATIONS 


KEG GEHHEHHHHHHEHHEH PROGRAM DBUPDATE HE HH HH HH EE HE HH HE 


* This program controls the system’s update operations 


CLEAR 
STORE ’ ’ TO updtcont 
PUBLIC updtcode 
DO WHILE updtcont # /n’ 
DO updtmenu 
DO CASE 
CASE updtcode = 1 
DO insertor 
CASE updtcode = 2 
DO insertsr 
CASE updtcode = 3 
DO inserthr 
CASE updtcode = 4 
DO modifyor 
CASE updtcode = 5 
DO modifyrr 
CASE updtcode = 6 
DO deleteor 
CASE updtcode = 7 
STORE ‘nn’ TO updtcont 
ENDCASE 
ENDDO 
RETURN 


HHH HHH HHH HEH HHH HHH HE PROGRAM INSERTOR eH HH HH HHH HHH HH HHH 


* This program adds records to OFFICER file, updates all other 
* affected database files, as well as records log-data into 
* USERLOG file 


CLEAR 
STORE ‘’y’ TO insertcont 


* open required for the processing database files 
SEEEE TS 
USE historic INDEX historic 
SELEGT Z 
USE requests INDEX requests 
SELEET 3 
USE officer INDEX officer 
SELECT 4 
USE userid 
SEREG® va 
USE userlog 
SELECT 6 
USE serves INDEX serves 
STORE .F. TO done 
DO WHILE UPPER (Cinsertcont) = ‘YY’ 
SEEECT 3 
DO mframe 
a 3,95 SAY “INSERT NEW RECORD TO OFFICER FILE’ 
a 4,5 SAY “MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM ’ 


* Initialize memory variables 


STORE ” 4 TO tunit 
STORE ‘ TO torder 
STORE * a TO tname 
She : TO tserno 
STORE ’ q TO trank 
STORE ’ 4 TO tnomyear 
STaRe — ae TO tspec 
STORE ’ ‘ TO tsource 
STORE ’ 3 TO ndate 
STORE TO pdate 
STORE ’ TO tcity 
STORE ’ d TO tcounty 
SCRE — TO tmarst 
STORE © TO tchild 
STORE .F. TO twwife 

a 20,f SAY ‘ENTER SERIAL NUMBER ->’ GET tserno 


PICTURE ‘99999’ 
READ 
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*% check whether record exists into OFFICER file 
FIND &tserno 
IF EOF () 

* record does not exist 

a 2O,f SAY % 7 


STORE ’ ’ TO answer 
® 12,45 SAY ’DO YOU NEED CODES? (Y/N) ==’ GET answer 
READ 


IF UPPER(Canswer) = ‘Y’% 
DO window3 


SESE 

a 12,45 CLEAR 
ENDIF 
*% read user’s data form the keyboard 
® 3,92 SAY ‘name :’ GET tname 

, PICTURE ’AAAARAARAAAARAARAAAAA ’ 

® 6,5 SAY ‘serial # :’ GET tserno FICTURE ’99999° 
g9 ¢f,oa SAY ‘rank oe letrantwer (CTUREY 99 ” 
a 8,5 SAY ‘nomination year: ’ GET tnomyear PICTURE ‘99° 
a 9,5 SAY ‘specialty > ° GET tspec PICTURE ‘A’ 
® 10,5 SAY ‘source :’ GET tsource PICTURE ’AAAA’ 
@ 11,5 SAY ‘nomination date: ’ GET ndate 


PICTURE ’99/99/99° 


@ 12,5 SAY ‘promotion date :’ GET ndate 

PIC TURE S9/ 72779 ’ 
a 13,5 SAY ‘origin (city? s° GET tcity PICTURE °XXXXXXx’ 
a 14,5 SAY ‘origin (county): ’ GET tcounty 


PICTURE “XXKXXXXXX’% 

’ GET tmarst PICTURE ‘A’ 
‘ GE Te@techi WeePICTURE “9° 
‘ GET twwife 


@ 15,5 SAY ‘/marital status 
® 16,5 SAY ‘°# of children 
a) 
R 


17,39 SAY ’working wife? 
EAD 


* append new record to OFFICER file 

APPEND BLANK 

REPLACE name WITH tname, serno WITH tserno 

REPLACE rank WITH trank, nomyear WITH tnomyear 

REPLACE specialty WITH tspec, source WITH tsource 
REPLACE asnweight WITH © nomdate WITH CTOD(ndate) 
REPLACE promdate WITH CTOD(ndate), origcity WITH tcity 
REFLACE origcounty WITH tcounty, marstat WITH tmarst 
REPLACE children WITH tchild, workwife WITH twwife 
STORE .T. TO done 


* create an etry into REQUESTS file 
sjalle S10, pee 
FIND &tserno 
fe Or (> 
APPEND BLANK 
REPLACE serno WITH tserno 
ENDIF 


oa 


* add record to SERVES file if officer’s source is NCOS 
IF tsource = ‘’NCOS’ 
SEeet wae 
FIND &tserno 
[FP een 
STORE ’ ’ TG) tune 
a 20,7 SAY “ENTER UNIT NAME —> ’ GET tunit 
READ 
AFFEND BLANK 
REPLACE serno WITH tserno,unitname WITH tunit,, 
enroldate WITH CTOD(ndate) 
ENDIF 
ENDIF 


* add record to HISTORIC file (transact. is NOMINATION) 
Sei Eide 
STORE ‘NOMINATION 7’ TO trans 
SEEF tserno + trans + ndate 
IF EOF) 
STORE ’ ‘ TO torder 
a 20,5 SAY “ENTER ORDER-*>’ GET torder 
READ 
a 20,5 SAY ” 
APPEND BLANE 
REPLACE serno WITH tserno, rank WITH trank,, 
transtype WITH trans,transdate WITH CTOD(ndate),, 
orderid WITH torder ,unit WITH tunit 
a 2,45 CLEAR 


* display new record of HISTORIC file 
DO frame 
a 11,45 SAY ‘serial #:’ GET serno 


12,45 SAY ‘rank ‘ GET rank 
13,45 SAY ‘’transac.:’ GET transtype 
‘ GEivunit 


‘ GET transdate 
‘ GET orderid 


15,45 SAY ‘date 


5 
a 

2 14,45 SAY ‘unit 
2 

2 16,45 SAY ‘order 


? ‘#%#% ERROR: RECORD EXISTS IN HISTORIC FILE’ 
DISPLAY 
DO delay 
2 22,0 CLEAR 
ENDIF 


* record exists into OFFICER file and cannot be added again 
dj Bas) 

a 20,4 SAY *% RECORD ALREADY EXISTS - 

DO delay 
ENDIF 
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a 29,6 SAY ° MORE INSERTIONS?Y (Y/N) -3° 
SET CONSOLE OFF 

WAIT TO insertcont 

SET CONSOLE ON 


CLEAR 
ENDDO 
*# record log-data into the USERLOG file 
IF done 
SELECT 4 
LOCATE FOR password = UFPFER (psw) 
SeeeCYy 3 


APPEND BLANE 
REPLACE username WITH D-frusername, task WITH ’ INSERTION’ 
progname WITH ‘’INSERTFOR’ ,logdate WITH DATE(),, 
logtime WITH TIME() 
ENDIF 
CLOSE DATABASES 
RETURN 


eH HHH HHH HH HH HHH HHH PROGRAM INSERTSR HHH HHH HHH HHH HHH HHH EHH 


* This program adds new records to SCHOOLS file, and updates 
+ the USERLOG file 


CLEAR 


* open required for the processing files 
SELECT. «i 

USE userid 

SELEET. 2 

USE userlog 

SEMECT 3 : 

USE officer INDEX officer 

SELEET 4 

USE schools 


display a window on the screen 

4,29 SAY ’IMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM , “ 
27,.0 Save: 
6,20 Sayan. 
,20 of 
,20 “Sane 
, 20S 
10,20 7Sny 
Wolke ee, Siz 1G 
P22, 202SAay —" 
13,20 Say.” 
14,20 SAY “ 
135, 20 7SRny 7 
16,207 585" 
if,20 SAY “HMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM< ” 
STORE ‘y’ TO insertcont 

STORE .F. TO done 

DO WHILE UPPER (insertcont) = ‘Y’ 
a 3,24 SAY ‘INSERT NEW RECORD TO SCHOOLS FILE’ 


MMM MMMM MMM MMMM MMMM MM MMMM 


OM -] 


BHO BAH YHYH HHH HHH & * 


* initialize memory variables 


SIGRET TO tserno 
STORES d TO tschname 
Se GS) r= < , TO tdegree 
STORE TO tobject 
STGRE ‘ TO tcountry 
STORE O TO tduration 
STORE ~ dl TO tgdate 


3 16,26 SAY ‘ENTER SERIAL NUMBER ->’ GET tserno 
PICTURE ‘99999’ 
READ 


°8 














*% check if record exists in OFFICER file 
Soeee, > 
FIND Xtserno 
IF .NOT. EOF () 
* record exists in OFFICER file 
* check if the record to be added exists in SCHOOLS file 


a 16,26 SAY ’“ ENTER SCHOOL NAME —--+’ GET tschname 
READ 

SELECT 4 

LOCATE FOR serno = tserno .AND. schoolname = tschname 
oe 6 EOF () 


* record does not exist in SCHOOLS file 

read user’s data from the keyboard 

16,26 SAY * : 
fyoos SAY ‘serial # ‘ GET tserno 
8,23 SAY ‘school~-name ‘ GET tschname 
9,23 SAY ‘degree ‘ GET tdegree 
190,23 SAY ‘object of studies GET tobject 
11,23 SAY ‘country ‘ GET tcountry 
12,23 SAY ‘duration ‘ GET tduration 

PIGVURE “99 
@ 13,23 SAY ‘graduation date :’ GET tgdate 
Plerume “99/59/99” 


OHovooooH & * 


a6 ae Ba ae aa as 
~ 


READ 


* append new record to SCHOOLS file 

APPEND BLANE 

REPLACE serno WITH tserno, schoolname WITH tschname, 
degree WITH tdegree, object WITH tobject,, 
country WITH tcountry, duration WITH tduration,, 
graddate WITH CTOD(tgqdate) 

STORE .T. TO done 


* record exist in SCHOOLS file 

eLse 
@ 16,26 SAY ’RECORD ALREADY EXISTS ‘ 
DO delay 

ENDIF 


* record does not exist in OFFICER file, and we cannot 


* add new recor to SCHOOLS file 
oss 
feo, 2t SAY REEGRD DOES NOT EXIST IN OFFICER FILE’ 
DO delay 
a 16,21 SAY “” ‘ 
ENDIF 


eo .2zo SAY “MORE INSERTIGNS? (Y/N) ->’ 
SET CONSOLE OFF 
WAIT TO insertcont 
SET CONSOLE ON 
ENDDO 


99 


* update USERLOG file 
IF done 
SEEECT 
LOCATE FOR password = 
SELEET = 
APPEND BLANK 
REPLACE username WITH 
progname WITH 


UPPER (psw) 


B-rusername, task WITH ‘INSERTION’,, 
7 INSERTSR’ ,logdate WITH DATE(),, 


logtime WITH TIME () 


ENDIF 
CLOSE DATABASES 
RETURN 
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HH HHH HH HHH HH HHH HHH PROGRAM INSERTHR HHH HHH HHH HH HHH HEHEHE 


* This program adds new records to HISTORIC file, and updates 
* USERLOG file 


CLEAR 

* open required for the processing files 
Seely t 

USE serves INDEX serves 

Seeelt sz 

USE historic INDEX historic 

Seeect 3 

USE officer INDEX officer 

SELECT 4 

USE userid 

SeEEECT 3 

USE userlog 

STORE ’y’ TO insertcont 

a 2,1if SAY ’THE ONLY LEGAL TRANSACTIONS FOR WHICH A RECORD’ 


oes,ir SAY ’ CAN BE ADDED FROM THIS FROGRAM ORE: ’ 
SET COLOR TO W+ 

ea.ic SAY ° . RETIREMENT’ 

Meoseir SAY ’ . DEATH’ 


SET COLOR TO W 
SIQnE .F. TO done 
SelceltT =z 
DO WHILE UFPER(insertcont) = ‘Y’ 
display window on the screen 
€,18 SAY 7 IMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM, ’ 
8,18 SAY “ INSERT RECORDS INTO HISTORIC FILE ria 
9,18 SAY “ MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM af 
19,18 SAY “ 
mi.ie8 SAY “ 
mts SAY “: a 
f>,1@ SAY °: 
14,18 SAY ‘: 
fa,16 SAY “: 
16,18 SAY ‘°: : 
om, 18 SAY “: z° 
18,18 SAY “HMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM=. ’ 


BHHOHOHOHPMHHHHHH * 


* initialize memory varibles 
STORE .F. TO duplicate 


STORE ’ ‘ TO tserno 

STORE ’ J TO trank 

STORE ‘ TO trans 

STORE ’ TO tdate 

SPORE “ ‘ TO torder 

@ 17,20 SAY ‘ENTER SERIAL NUMBER -—-*>’ GET tserno 
PreETURe” F7S9oo 

READ 


rot 


* check 
Seeee 3 


if record exists in OFFICER file 


FIND &tserno 
IF .NOT. EOF () 
*% record exists in OFFICER file 
SELEC he 
FIND ®Xtserno 
SELLER ies 
ga ir,20 SAY % ENTER TRANSACTION -+’ GET trans 


READ 


* check whether transaction is legal or not 
IF trans = ‘RETIREMENT ’ .OR. trans = ’DEATH i 
* legal transaction 
a 17,20 SAY “” 
® if,20 SAY % ENTER DATE —-,»’ GET tdate 
PICTURE ‘9973347. 


READ 
DO. Sane 


*% check for duplicate record in HISTORIC file 
SEEK tserno + trans + tdate 


Le 


EOF () 
* no duplicate record 


f 


é 


* red user’s data from keyboard 
@ 11,20 SAY ‘’rank :’ GET trank FPICRURB ee] 
@ 12,20 SAY ‘transaction :’ GET trans J 

PICTURE ’AAAAARAAAAAA ‘ 
® 14,20 SAY ‘date :’ GET tdate 

PICTURE °9979°970>8 
ag 15,20 SAY ‘order >’ GET torder 
READ 


* append new record to HISTORIC file 

APPEND BLANK 

REPLACE serno WITH tserno, rank WITH trank,, 
transtype WITH trans, unit WITH A-ftunitname,, 
transdate WITH CTOD(tdate) ,orderid WITH torder 

@ 10,20 SAY ‘serial # :’ GET serno 

ad 13,20 SAY ‘unit :° 6EG nize 

STORE .T. TO done 


*% record to be added already exists 
ELSE 


®@ irf,2O SAY ’*** ERROR: DUPLICATE RECORD 7 
DO delay 


ENDIF 
* illegal transaction 


ELSE 


@ if ,20 SAY ‘ILLEGAL TRANSACTION ‘ 


DO 
ENDIF 


delay 


1 Os 


a Snap — ee 

















*% officer does not exist in OFFICER file 
SESE 
ee 6.2 omy oe ReeORD DEES NGF EXIST IN GFFICER FILE’ 
DO delay 
@ 1f°,20 SAY ” ‘ 
ENDIF 
a 1if,2O0 SAY ‘MORE INSERTIONS? (Y/N) ’ 
SET CONSOLE OFF 
WAIT TO insertcont 
SET CONSOLE ON 


CLEAR 
ENDDO 
* update USERLOG file 
IF done 
SELECT 4 
LOCATE FOR password = UPPER (psw) 
Seeecl & 


APPEND BLANK 
REPLACE username WITH D-Susername, task WITH ’ INSERTION’ 
progname WITH ’INSERTHR’, logdate WITH DATE(),, 
logtime WITH TIME() 
ENDIF 
CLOSE DATABASES 
RETURN 


LOS 


= 


he Hee He HH HH HHH HHH HH PROGRAM MODIFYOR He He HH HHH HH HH HER HE 


* This program modifies records in the OFFICER file, adds new 
* records to HISTORIC file in case of promotion, and updates 
* USERLOG file 


CLEAR 
* open required for the processing filas 
Seer! 
USE serves INDEX serves 
SELECT 2 
USE historic INDEX historic 
SELECT 3 
USE officer index officer 
SELECT 4 
USE userid 
SELECT fa 
USE userlog 
STORE .F. TO done 
STORE ‘y’ TO modicont 
DO WHILE UPFER(modicont) = ‘VY’ 
SEER 
DO mframe 
a 3,6 SAY ° MODIFY RECORD IN OFFICER FILE’ 


®@ 4,5 SAY % MMMMMMMMMMMMMMMMMMMMMMMMMMMMM 
SV URE  “ ‘’ TO tserno 

a 20,f SAY ‘’ENTER SERIAL NUMBER -—->’ GET tserno 
READ 


* check if record to be modified exists in OFFICER file 
FIND &tserno 
IF .NOT. EQF() 

* record exists in OFFICER file 

* initialize memory variables 

STORE O TQ attrib 


STORE ’ ’ TO trans 
STORE ’ TQ tum 
sys s ” ‘ TO torder 


STORE name TO tname 

STORE rank TO trank 

STORE promdate TO tdate 

STORE marstat TO tmarst 

STORE children TQ child 

STORE workwife TO twwife 

* display wets attributes can be modified 


a 2O,°r SAY ‘ 
2a 3,8 SAY ° MODIFIABLE ATTRIBUTES’ 

QD Gg BD SAN 

@ f,8 SAY ‘name Wes 

2 8,8 SAY ‘rank and promotion date ce 

2 9,8 SAY ‘marital and family status 3’ 
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* read user’ s selection from keyboard 

a 20,7 SAY ° SNweR YOUR SELEETION —+* GET attrib, 
FICTURE ’9’ RANGE 1,3 

READ 


clear displayed attributes 

wee SAY * 4 
6,8 SAY ’ ¢ 
»8 SAY ” 3 
»8 SAY ’ : 
sa SAY “ A 
> SAY “ : 


OHHH oO OW * 


DO CASE 

CASE attrib = 1 
* replace old name with the new one 
®@ S,7 SAY ‘name >’ GET tname 
READ 
REPLACE name WITH tname 

CASE attrib = 2 
* replace old rank and promotin date 


2 f,o SAY ‘rank 2 Soetetrank., 
Premepe “99 ’ 
a 12,5 SAY ‘promotion date :’ GET tdate, 


PiGiume. 97/9 9799 ” 
READ 
IF rank # trank 
STORE .7T. TO addhist 
ENDIF 
REPLACE rank WITH trank, promdate WITH tdate 
CASE attrib = 3 
* replace family data with the new ones 


a 16,5 SAY ‘’marital status :’ GET tmarst 
a irfr,S SAY ’# of children :’ GET child 

PRETURE: “9 
2 18,5 SAY ‘working wwife :’ GET twwife 
READ 


REPLACE marstat WITH tmarst,children WITH child, 
workwife WITH twwife 
ENDCASE 
STORE .T. TO done 


* add new record to HISTORIC file in case of promotion 
IF attrib = 2 

STORE ‘’FROMOTION 7” TO trans 

SEEEET 1 

FIND &%tserno 

STORE unitname TO tunit 


* check for duplicate transaction 
SELECT 2 
SEEK tserno + trans + DITOC(tdate) 
[FP EGR ® 
* no duplicate transaction 
STORE ’ ‘ TO torder 
a 20,5 SAY ’ENTER ORDER->’ GET torder 
READ 
a 20,5 SAY ’ ; 
APFEND BLANK 
REPLACE serno WITH tserno, rank WITH trank, 
transtype WITH trans, unit WITH tunit, 
transdate WITH tdate, orderid WITH torder 


* display new record added to HISTORIC file 
DO frame 

11,45 SAY ‘serial #:’ GET serno 

12,45 SAY ‘rank ’ GET rank 

13,45 SAY ‘’transact:’ GET transtype 

14,45 SAY ‘unit ’ (SE uma © 

15,45 SAY ‘date ’ GET transdate 

16,45 SAY ‘order ’ GET orderid 


ae & & & 


* duplicate transaction 
ELSE 
a 20,f SAY ’*** ERROR: TRANSACTION EXISTS’ 
DO deleay 
ENDIF 
ENDIF 


* display modified OFFICER file record 


SELECT. 

a 3,4 SAY “% UPDATED RECORD { 
Yo 3,7 SAY ‘name :’ GET name 

a 6,5 SAY ‘serial # :’ GET serno 

®@ f,o SAY ‘/rank 3 GET steam: 

a 8,5 SAY ‘’nemination year:’ GET nomyear 

@ 9,59 SAY ‘specialty :’ GET specialty 
®9 10,5 SAY ‘source >’ GET source 

a 11,5 SAY ‘nomination date:’ GET nomdate 

a 12,5 SAY ‘promotion date :’ GET promdate 
@ 13,5 SAY ‘assign. weight :’ GET asnweight 
@ 14,5 SAY ‘origin (city)? : ‘ GET emicerty 
a 15,5 SAY ‘origin (county): ’ GET origcounty 
@ 16,5 SAY ‘marital status :’ GET marstat 

@ 1if,3 SAY ‘’# of children :’ GET children 
a 18,5 SAY ‘working wife? :’ GET workwife 
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* record to be modifyed does not exist in OFFICER file 
Bi Se 

a 20,5 SAY “RECORD DOES NOT EXIST IN DATABASE’ 

DO delay 
ENDIF 


2 20,5 SAY ° ‘ 
2 20,7 SAY ‘MORE MODIFICATIONS? (Y/N) —>’ 

SET CONSOLE OFF 

WAIT TO modicont 

SET CONSOLE ON 


CLEAR 
ENDDO 
* update USERLOG file 
IF done | 
SELECT 4 
LOCATE FOR password = UPPER (psw) 
melLECT S 


APPEND BLANK 
REPLACE username WITH D-*username,, 
task WITH ’MODIFICATION’,, 
progname WITH “MODIFYOR’, logdate WITH DATE(),, 
logtime WITH TIME() 
ENDIF 
CLOSE DATABASES 
RETURN 


ROG 


ie te te, es Ae, Me, es ie te, Be, ei ie i eg 


* This program modifyes records in REQUESTS file, 


+ 


CLEAR 


PROGRAM MODIFYRR ee eee eee Se ee eS 


and updates 
USERLOD file 


* open required for the processing files 


Soe 


T 1 


USE requests INDEX requests 


SELEC 
USE u 
SELEC 


T 2 
serid 
T 3 


USE userlog 
TO done 
STORE ‘’y’ TO modicont 


STORE 


SEEee 


DO WHILE UPPER (modicont) = 


Sy) 


BOHHeeoHngHsaHNBHRDHH BB * 


+ 


ae 


ap 


ORE “ 


ie fa 
’ TO tserno 


display window on the screen 


4,22 


hJ 
hs 


Ih hI th bd 
Nh bo th bh 


O00 ~) & ON 


—~ 


t 


check 


SAY 


z= SAY 


SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 


lif record to be modified 
FIND &%tserno 


“I MMMMMMMMMMMMMMMMMMMMMMMMMMMMMM MMMM,” 


ee wed, 
es 


MMMM MMMM MMMM MM MMM MMMM MMMM MMM a 


~ 
t Gea ea ee ea ee ea ee es t | 
ga ge aa au ga ga u@ ap t 


*HMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMii = / 

‘MODIFY RECORD IN REQUESTS FILE’ 

‘ENTER SERIAL NUMBER -»’ GET tserno 
PICTURE ‘99999’ 


exists in REQUESTS file 


IF .NG@t. Ear <)> 

* record exists in REQUESTS file 
* initialize memory variables 

E submdate TO tdate 


STOR 
STOR 
STOR 
Sp 8) 


E unittl TO tunitl 
E unit2 TO tunit? 
E units3 10 tumies 


108 

















*% read user’s data from keyboard 
a 1,26 SAY ‘serial # : 2? GET tserne 
@ 8,26 SAY ‘’submition date :’ GET tdate 


PICHBRE “99/99/99" 
@ 9,25 SAY ‘ist requested unit :’ GET tunitl 


PIGMURE “XXXXAARK 
@ 19,26 SAY ‘2nd requested unit :’ GET tunite 

FICTURE ‘’XXXXKXKKX’ 
2 11,26 SAY ‘3rd requested unit :’ GET tunit3 

Pee TURE’ XXAXAXXXXX* 
READ 


* replace changed fields 

REPLACE submdate WITH tdate, uniti WITH tunitl,, 
unit? WITH tunit?, units WITH tunit3 

STORE .T. TO done 


* record to be modified does not exist in REQUESTS file 

SESE 
@ 14,24 SAY “RECORD DOES NOT EXIST IN DATABASE’ 
DO delay 

ENDIF 

a 14,24 SAY ’ 4 

®@ 14,26 SAY ‘MORE MODIFICATIONS? (Y/N) ->2° 

SET CONSOLE OFF 

WAIT FO modicont 

SET CONSOLE ON 

CLEAR 

ENDDO 


* update USERLOG file 
IF done 
SeLeECT 2 
LOCATE FOR password = UPPER (psw) 
SELECT 3 
APPEND BLANK 
REPLACE username WITH B-ftusername,, 
task WITH ‘’MODIFICATION’,, 
progname WITH ‘’MODIFYRR’ ,logdate WITH DATE(),, 
logtime WITH TIME() 
ENDIF 
CLOSE DATABASES 
RETURN 


BO” 


3 HH HH HH eH HH HHH PROGRAM DELETEOR HHH HH HH HH HH HHH HEHEHE 


* This program deletes recods from OFFICER file, and from all 


* other database files whose field ‘’serno’ matches with 


the 


* key of the deleted from OFFICERS file record.It also updates 


* USERE@GGH tire 


CLEAR 

* open required for the processing files 

SEREET i 

USE serves INDEX serves 

SSeeen. 

USE requests INDEX requests 

SELECTS 

USE schools 

SELECT 4 

USE historic INDEX historic 

pe SL St 

USE officer INDEX officer 

STORE ‘y’ TO deletecont 

STORE. 0 106 chtl,. ECntZ2 sents, wens 

STORE .F. TO done 

DO WHILE UPPER(deletecont) = ‘Y’ 
DO mframe 
® 3,f SAY ‘DELETE RECORD FROM OFFICER FILE’ 
QB 4,°f SAY °MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM ’ 
STORE ’ TO tserno 
a 20O,f SAY °% ENTER SERIAL NUMBER —-*’ GET tserno 

PICTURE ’99999" 


* check 14 record to be deleted exists in OFFICER file 
READ 

FIND Xtserno 

[FE Shigeo ©) 


=<, SAY ‘promotion date 
13,9 SAY ‘origin “werey? 

14,5 SAY ‘origin (county? 
153,54 SAY ‘marital status 


’ GET promdate 

’ IGE wer tee1 ty 

“ GET origcounty 
‘ GET marstat 


* record exists in OFFICER file 

* display record to be deleted 

a 20,7 SAY “% 4 
3 3,59 SAY ‘name :’ GET name 

”2 6,59 SAY ‘serial # >’ GET serno 

Y f,29 SeY “rank :’ GET rank 

2 8,5 SAY ‘nomination year:’ GET nomyear 

a 9,5 SAY ‘specialty >’ GET specialty 
a 10,5 SAY ‘source :’ GET source 

a 11,5 SAY ‘nomination date:’ GET nomdate 

a) : 

a : 

a : 

a : 


eee ee. Sn 
= _ ee _— ———— a ~ a 


* be sure that user wants the record to be deleted 
a 20,7 say ” DELETES (y/7N) =2" 

SET CONSOLE OFF 

WAIT TO confirm 

SET CONSOLE ON 


* delete record from OFFICER file 
IF UPPER (confirm) = ‘Y’ 

DELETE 

STORE .T. TO done 

STORE cntS + 1 TO cnts 


* delete record from SERVES file 
Seer 1 
FIND &tserno 
IF .NOT. EOF () 
DELETE 
S@rmevemel + | FO cntl 
ENDIF 


* delete record from REQUESTS file 
SEEEGT 2 
FIND &tserno 
JUS AINE lps (Sela 
DELETE 
STORE cnt2 + 1 TO cnt2 
ENDIF 


* delete records from SCHOOLS file 
SELECT 3 
LOCATE FOR serno = tserno 
tee Non.) COr () 
DELETE ALL FOR serno = tserno 
Seon eeenco. + sisererent 
ENDIF 


* delete records from HISTORIC file 
SELEET 4 
DELETE ALL FOR serno = tserno 

ENDIF 


* record to be deleted does not exist in OFFICER file 
BESE 

a 20,6 SAY “RECORD DOES NOT EXIST IN DATABASE ’ 

DO delay 

a 29,& SAY ’ a 
ENDIF 


a <O,¢ SAY ’ 
SET CONSOLE OFF 
WAIT TQ deletecont 
SET CONSOLE ON 
CLEAR 
SEEGE | e 

ENDDO 


MORE DELET TONS. 


OAS. 


* pack database files which records have been deleted from 


IF cnts # O 
a 10,18 SAY 
a 11,18 SAY “° 
PACK 
SelEeein it 
LF Gentian 
FACK 
ENDIF 
silat @ 
IF ents? # O 
FACK 
ENDIF 
Sete Gils 
IF cnt3 # O 
FACK 
ENDIF 
SELECT 4 
FACK 
ENDIF 
CLOSE DATABASES 


* update USERLOG file 
IF done 
SELECT wl 
USE userid 
LOCATE FOR passwor 
SELECT 
USE userlog 
APPEND BLANK 
REPLACE username W 
progname W 
logtime WI 
ENDIF 
CLOSE DATABASES 
RETURN 


‘DATABASE FILES ARE BEING 


BE FATIENT, IT WILL 


d = UPFER (psw) 


ITH A-vusername, 
ITeH. * DEEBTESR 
TH Tite) 


pS es 


PACKED AND REINDEXED‘ 
TAKE SOME TIME’ 


task WITH ’DELETION’,, 
logdate WITH DATE(),, 


D. PROGRAMS PERFORMING THE ASSIGNMENT PROCESSING 


Ge ie ee ee ee ee Re ee ie he ie Be es a hay 


PROGRAM ASSIGNTS 


Rah er i ee i ie i i ie i ie ie ie ie ie ie re 


* This program controls the assignment processing operations 


CLEAR 


PUBLIC asprcode 


DO asprmenu 


DO WHILE asprcode # ¢ 


DO 


CASE 
CASE 


CASE 


CASE 


CASE 


CASE 


CASE 


ENDCASE 


asprcode = 
DO assignOl 
asprcode = 
DO assigno?2 
asprcode = 
DO assign0O3 
asprcode = 
DO assignO4 
asprcode = 
DO assignoOs 
asprcode = 
DO assigndod 


DO asprmenu 


ENDDO 


RETURN 


1 


Pe 
ewe 


= 


4 


=) 


& 


HHH HM HH EH HE EE Et PROGRAM ASSIGNOI1 He HH HH HHH HHH HH HE HHH HEH 


* This program performs the assignments of the ist lieutenants 
* and updates the USERLOG file 


* Build required temporary files 
DO mkauxfl2 


* display a window in the screen 
DO window! 


* assign ist lieutenants to units in which they can serve by 
* combining requests and assignment weights 

a39,23 SAY ‘ASSIGNMENTS FOR THE ist LIEUTENANTS’ 

@ 6,23 SAY * ARE BEING PROCESSED’ | 


* open required for the processing files 
SELECT 1 

USE assigned INDEX assigned 

SELEGT 2 

USE files 

SELSBET 3 

USE f11e6 

SELECT 4 

USE filer 

STEREea.) TO ok ° 

a 8,23 SAY ’ : 
a 8,23 SAY ° FIRST FASS” 
STORE ’08/15/86’ TO tdate 


* get each officer under assignment and determine the unit to 
% assigned to or defere it for the second pass 
DO WHILE .NOT. EOF () 

* initialize memory variables 

STORE .F. TO granted 

STORE .7f. TO preference 

STORE serno TO tserno 

STORE rank TO trank 

STORE source TO tsource 

STORE specialty TO tspec 

STORE asnweight TO weight 

STORE marstat TO marst 

STORE ’” " TO tumit, Gul, €ugeers 

STORE unitl TO tutl 

STORE unit2 TO tu2 

STORE unit3 TO tu3 

STORE .F. TO resolved 

STORE 1 TO loopent 


* determine which of the requested units will be examined 


mext Clst, 2nd, or 3rd) 


DO WHILE .NOT. resolved .AND. loopcnt <« 4 


IF loopent = 1 
STORE tul TO tu 
ELSE 
IF loopcent = 2 
STORE tu2 TO tu 
EESe 
ST@RE seus TO tu 
ENDIF 
ENDIF 


* check if requested by the officer unit is available, 
¥#1.@., examine if there exists = an officer under: 
* assignment whose present unit 1s the requested unit 
Selec Ss 
LOCATE FOR specialty=tspec .AND. source=tsource .AND., 

unitname=tu .~.AND. sernoft#ttserno ~.AND. .~.NOT. DELETED () 
ie. NOT. EGF () 

STORE serno TO idno 

SELECT 2 

LOCATE FOR serno = idno .AND. .NOT. DELETED() 


LE 2nlet. EOF 6) 
* someone else from the requested unit is to be moved 
* check 14 someone else has requested the same unit 
SEeee 5S : 
STORE .F. TO done 
DO WHILE .~.NOT. EQF() .AND. .~.NOT. done 
re .NG?. BeELETED (©) 
IF specialty = tspec .AND. serno # tserno, 
~AND. source = tsource 
IF unitl=tu .OR. unitst=tu .OR. unit32=tu 
STORE .T. TO done 
ENDIF 
ENDIF 
ENDIF 
SEIF 
ENDDO 


IF .NOT. done 
* nobody else requests the same unit, requested 
* unit 15S granted, record is marked for deletion 
STORE tu TO tunit 
DO CASE 
CASE loopcnt = 1 
STORE © TO tweight 
CASE loopcnt = 2 
STORE 1 TO tweight 


je 


CASE .Lheepente—es 
STORE 2 TO tweight 
ENDCASE 
STORE .T. TO granted 
LOCATE FOR serno = tserno 
DELETE 
SEEEET = 
LOCATE FOR serno = idno 
DELETE 
STORE .T. TO resolved 
ELSE 
* somebody else requests the same unit, check 
* assignment weights to see whom will be given 
* the preference to 
DO WHILE ((.NOT. EQF()) .AND. (preference) 3 
IF .NOT. DEEEBtEr 
IF serno # tserno .~.AND. specialty=tspec, 
~-AND. source = tsource 
IF uniti=tu. OR.unitl=tu. OR. unit 3=tu 
IF asnweight > weight 
STORE .F. TO preference 
ELSE 
IF asnweight = weight 
IF marst = ’S’ .AND., 
marstat # ‘5S’ 
STORE .F. TO preference 
ENDIF 
ENDIF 
ENDIF 
ENDIF 
ENDIF 
ENDIF 
SKIP 
ENDDO 
IF preference 
* officer requested this unit has the preteren-— 
* ce, unit is granted, record is marked ¢for 
* : deletion 
STORE tu TO tunit 
DO CASE 
CASE loopent = il 
STORE © TO tweight 
CASE loopcnt = 2 
STORE 1 TO tweight 
CASE loopcnt = 3 
STORE 2 TO tweight 
ENDCASE 
STORE .T. TQ granted 
LOCATE FOR serno = tserno 
DELETE 


CC — et 


SELECT 2 
LOCATE FOR serno = idno 


DELETE 
STORE .T. TO resolved 
ENDIF 
ENDIF 
ENDIF 
ENDIF 
STORE loopcnt + 1 TO loopent 


ENDDO 


IF .NOT. resolved 

* unresolved assignment, deftere it for the next pass 
sme “~*° TG tunrt 
STORE 3 TO tweight 
STORE .F. TO ok 

ENDIF 


* build record in the file containing the assignments 

SELECT i 

APPEND BLANK 

REPLACE serno WITH tserno, rank WITH trank,, 
source WITH tsource, specialty WITH tspec 

REPLACE unitname WITH tunit, asnweight WITH tweight,, 
asgndate WITH CTOD(tdate) 

SELECT 4 

SEIF > 

ENDDO 


* second pass 


IF .NOT. ok 

* unresolved assignments exist 
a 8,23 SAY ’ SECOND FASS‘ 
STORE .F. TO resolved 


SELECT 1 

* Build temporary file containing unresolved assignments 
COPY TO £11e8 FOR unitname = ’'*’ .AND. rank = ‘O02’ 
SELECT 3 

USE files 


STORE .F. TO deletion 


* get one record at a time and try to satify the request 
DO WHILE .NOT. EOF () 

* initialize memory variables 

SIORE * ‘ TO tsource 

STORE serno TO tserno 

STORE specialty TO tspec 

STORE source TO tsource 

STORE ’ ‘ TO tunit 


i are 


SELES is] 


* find requested units and store them into memvars 
LOCATE FOR serno = tserno 
STORE uniti TO tul 


STORE 
STORE 
STORE 
STORE 


60 TOP 


UNnLESeo EUs 
Uni tea e rus 
-FeeOsnecdhna 
-T. TO requested 


* find available units 
DO WHILE .NOT. EOF() .AND. .NOT. found 
IF .~.NOT. DELETED (>) 


ENDIF 
SiS 
ENDDO 


IF found 
*¥ unit 
* record 


& 


IF serno # tserno .AND. specialty = tspec, 
~AND. source = tsource 
STORE serno TO idno 
*¥ unit available 
DO CASE 


CASE unitname = tul 

* unit is the ist requested 
STORE .T. TO found 
STORE unitname TO tunit 
STORE 9 TO tweight 

CASE unitname = tu2 

*¥ unit is the 2nd requested 
STORE .T. 6 toumea 
STORE=unitname TO tunit 
STORE 1 TO tweight 

CASE unitname = tu3 

*¥ unit is the 3rd requested 
STORE .T. TO found 
STORE unitname TO tunit 
STORE 2 TO tweight 

OTHERWISE 

* found available unit 15 not requested 
STORE .F. TO requested 


ENDCASE 


avallable 1s one of the requested units, mark 
for deletion, so that 1t will not be 


encountered again 


LOCATE FOR serno = idno 


DESERE 


STORE .T. TO resolved 





Bese 
IF .NOT. requested 


* available unit is not requested 
* mark record for deletion 


LOCATE FOR serno = idno 
STORE unitname TO tunit 
STORE 3 TO tweight 
STORE .Tf. TO resolved 
DELETE 
SESE 
a 22,18 SAY ’OFFICER CANNOT BE ASSIGNED’GET tserno 
ENDIF 
ENDIF 
See | 1 
FIND Ztserno 


IF resolved 
* update record in assigned file 
REPLACE unitname WITH tunit, asnweight WITH tweight 
ESE 
* No available unit found, delete created in assigned 
* file record. Officer will remain in the same unit 
DELETE 
STORE .T. TO deletion 
ENDIF 
SEEECT S&S 
STORE .F. TO resolved 
SE IP 
ENDDO 
ENDIF 
IF deletion 
SELECT ti 
PACK 
ENDIF 


* update USERLOG file 

SEEECT & 

USE userid 

LOCATE FOR password = UPFER (psw) 

SeeeECT r 

USE userlog 

APPEND BLANE 

REPLACE username WITH F-*username, task WITH ’ASSIGNMENTS’,, 
progname WITH ’ASSIGNOL’ ,logdate WITH DATE(),, 
logtime WITH TIME () 

CLOSE DATABASES 

MeeeTE FILE fileS.dbf 

MEEETE FILE fileé.dbf 

MELETE FILE filer.dbf 

MELETE FILE filesS.dbf 

RETURN 


ile 


HHH HH HHH EEE IEE HH HH HE PROGRAM MKAUXFL2 HHH HEHEHE HEH HH HHH HHH 


* This program creates the temporary files required for the 
+ for the assignment processing of the 1st lieutenants 


DO window 

SELECT 

USE serves 

SELEGT. 2 

USE officer 

SELECT = 

USE requests 

SELEER 2 

@ 10,30 SAY “Sites 2. ‘ 

COPY 10 file3 CGR eankt.— oc 

a 10,45 SAY ’READY’ 

SELECT ae! 

@ 14:..30 (Seis Fh Wee aaa. ee ‘ 

COPY TO file4 FOR enroldate <= CTOD(’OF/31/86’) - 1065 

a 11,45 SAY ’READY’ 

SELEGIe S 

USE file4 

SELECT 6 

USE files 

@ 125,50 SAY ‘FILES 2 cueeeeeeme 7 

JOIN WITH E TO fileS FOR serno = E-*+serno , 
FIELDS serno,rank,source,specialty,asnweight ,marstat,, 
children, unitname, enroldate 

2a 12,45 SAY ’READY’ 

SELECT. 3s 

USE requests 

SELEEM 7 

USE fileS 

a 13,30.-S5AY | BlILEG ee eee 

JOIN WITH C TO file& FOR serno = C-*+serno , 
FIELDS serno,rank,source,specialty,asnweight,marstat,, 
children,unitname,enroldate,unitil ,sunit2Z,unit3,submdate 

a2 13,45 SAY ’READY’ 

CLOSE DATABASES 

DELETE El @e til eacdbt 

USE #1i1e6 

COPY TO files 

a 14,30 SAY —! Beis sss cee : 

COPY TO file? 

2 14,45 SAY ‘READY’ 

CLOSE DATABASES 

DELETE F TibReery 1 esseb+ 

DELETE FILE file4.dbf 

RETURN 


HEH HHH HHH HHH HHH HH PROGRAM ASSIGNOZ Se Hee He HEHE HE HH 


* This program performs the assignments of the 2d lieutenants, 
+ and updates USERLOG file 


* build required temporary files 
DO mkauxfl i 


* open required for the processing files 
SseceClr i 

USE assigned INDEX assigned 

Seiel! 2 

USE officer 


*® display window on the screen 
DO windowl 


* Assign officers recently graduated from MA. 
* ALL of them are assigned to the AS for training 


ga35,29 SAY “ASSIGNMENTS FOR THE NEW 2d LIEUTENANTS’ 
a 6,20 SAY “WHO HAVE RECENTLY GRADUATED FROM THE MA’ 
mw f,20 SAY “ ARE BEING FROCESSED’ 

Seeecl 2 

LOCATE FOR rank = ‘O1% .AND. source = ‘MA’, 


-AND. YEAR(nomdate) = YEAR(CDATE(} ) 
DO WHILE .NOT. EOF () 
Ser ECT 1 
APPEND BLANE 
REPLACE serno WITH B-sserno, rank WITH B-erank, 
Sour eceoawhiheo— -Ssource  scPpeGia. (yaewader— -Specialty 
REPLACE unitname WITH ‘AS’, asgndate WITH CTOD(’09/01/86'), 
asnweight WITH O 
SEEECT = 
CONTINUE 
ENDDO 
CLOSE DATABASES 


* clear messages inside the window 

Deo,e) SAY * ‘ 
geo, sO SAY * ‘ 
ga fy20 SAY ’ ; 
* assign 2nd lieutenants completing their 

* training in the Artillery School to ARTC 

a3,23 SAY “ASSIGNMENTS FOR THE 2d LIEUTENANTS’ 

a 6,23 SAY ’ GRADUATING FROM THE AS’ 

met sss DAY ° Ame BEING PROCESSED’ 


* open required for the processing files 


SEEEET 1 
USE assigned INDEX assigned 
SEREEIeS 
USE serves INDEX serves 
LOCATE FOR unitname = ‘AS’ .AND. duty = ‘TRAINEE’ 
DO WHILE .NOT. EOF () 
SeeeeT 1 


APFFEND BLANE. 

REPLACE serno WITH F-*serno, unitname WITH ‘ARTCC’, 
rank WITH ‘O11’, asgndate WITH CTOD(‘08/01/86"} 

REPLACE source WITH ’MA’, specialty WITH ’C’, 
asnweight WITH O 

SEEECT AG 

CONT INUE 

ENDDO 


25,20 SAY ’ 
9 6,20 SAY ’ 
yo) Say 


assign ZYnd lieutenants serving in the ARTC 
to the combat units in which they can serve 


7 


@ 5,23 SAY ‘ASSIGNMENTS FOR THE 2d LIEUTENANTS’ 
2 6,23 SAY ’ WITH ORIGIN MA SERVING IN ARTC’ 

2 7,23 SAY ’ ARE BEING PROCESSED’ 

a 6. Zone FIRST PASS’ 


* open required files 
SELLERS 

USE requests INDEX requests 
SELECT 4 

USE unit INDEX unit 
SECECI aS 

USE unitorg INDEX unitorg 
SELEENTSe 

USE fives 

STORE. «Tee eeek 

DO WHILE SNOT SOF () 


SsqupaiyS 4 ‘ TO tsource 
STORE serno TO tserno 
STORE rank TO trank 
STORE source TO tsource 


STORE specialty TO tspec 


STORE * TO tuntegetul, tueeecas 
STORE: : TO tel, tet, te3 
SOR Ea LO tris the ers 


STORE © 7G°x1 323] 


* find what units the officer has requested 
SELECT 3 

FIND &tserno 

SORE uniret TO .EulL 

STORE unit2 TO tus 

STORE units TO tus 


* find requested units in the unit file, and store the 
* fields echelon and readines into temporary memvars 
SELECT 4 

FIND ®%tul 

STORE echelon TO tel 

STORE readiness TO tri 

FIND &tu2 

STORE echelon TO te2 

STORE readiness TO tr2 

FIND &tu3 

STORE echelon TO te3 

STORE readiness TO tr3 

SeEEET 5S 

LOCATE FOR echelon = tel .AND. readiness = tri 

STORE macOi TO xi 

LOCATE FOR echelon = te2 .AND. readiness = tra 

STORE macOl TO x2 
LOCATE FOR echelon 
STORE macOl TO «x3 


te3s .AND. readiness El ae 


*% check 1 the officer can serve in the requested units 
% according to the unit organization 


IF ((x1 # 0) AND. (x2 # 0) AND. (X3 # ©)) 
% requests are valid, check 1f 1st requested unit 15 
% available 
SELECT 1 
LOCATE FOR rank = trank .~.AND. unitname = tul 


if EGF () 

*%* requested unit is available, unit 1s granted 
STORE tui TO tunit 
STORE 0 TO weight 


BiLSE 
* ist requested unit is not available 
*% check 1 2nd requested unit 1S available 
LOCATE FOR rank = trank .~.AND. unitname = tur 
IF EOF () 
* requested unit 15 available, unit is granted 
glORe tus 10 tuni t 
STORE 1 TO weight 


is 


EESE 
* 2nd requested unit 15 not available 
* check if 3rd requested unit is available 
LOCATE FOR rank = trank . AND. unitname = tu3 
[FP EDR. 
%* requested unit 1S available, unit 15 granted 
STORE tu3 TO tunit 
STORE 2 TO weight 


EESe 

* none of the requested units 15 available 

* assignment will be resolved in the 2nd pass 
DTGRE “°“*"’ “TO tumre 
STORE 3 TO weight 
STGRE .F. TO ak 

ENDIF 

ENDIF 
ENDIF 


* build assignments record for the officer 
APPEND BLANK 
REPLACE serno WITH tserno, unitname WITH tunit, 
rank WITH trank, asgndate WITH CTOD(’08/15/86’) 
REPLACE asnweight WITH weight, source WITH tsource , 
specialty WITH tspec 


ENDIF 
SRE TS 
Sk fe 
ENDDO 
* if there are deferred asignments from the first pass, try £0 
* resolve them 
IF .NOT. ok 
SELECT. 4 
a 8,23 SAY ’ SECOND PASS’ 
* Build file containing the deferred assignments 
COPY TO notoklZ2 FOR unitname = ’*’ .AND. rank = ‘O1%, 
-AND. source = ‘MA’ 
SBEEET oF 


USE notokl2 

DO WHILE .NOT. EOF (>) 
STORE serno TO tserno 
STORE rank TO trank 
SELECT 4 
GO TOR 
STORE .F. TO stop 





* find units not requested by any officer in which a 2nd 
* lieutenant can serve and assign non-assigned officers 


* to them 
DO WHILE .NOT. EQF() .AND. .NOT. stop 
IF category = ‘CU’ 
STORE = : TO tel 
SrOnee, ~ Te tri 
STORE ’ ro funni € 


STORE unitname TO tunit 
STORE echelon TO tel 
STORE readiness TO tri 
SEERECT ea 
SEE; telrrvert 
IF .NOT. EOF () 
IF macOl # O 
SELECT 1 
LOCATE FOR rank=trank .~.AND. unitname= tunit 
IF EOF () 
FIND &tserno 
REPLACE unitname WITH tunit 
STORE .?t. 1G step 
ENDIF 
ENDIF 
ENDIF 
ENDIF 
SELECT 4 
SKIP 
ENDDO 
IF .~.NOT. stop 
@ 22,18 SAY ‘*** INVALID REQUEST OR INCORRECT FILE’ 
ENDIF 
SELECT 9 
SKIP 
ENDDO 
ENDIF 
CLOSE DATABASES 


* delete non-required temporary files 
Meeete FILE filel.dbf 

Weeere FILE files.dbf 

Peeete FILE notoklz.dbf 


* assigne @Z@nd lieutenants whose source is NCOS 
to the units in which they can serve by combining 
requests and assignment weighs 


OK 


S,20 SAY ’ ‘ 
6,20 SAY ’ ‘ 
7,20 SAY ° ‘ 
8,20 SAY ’ ‘ 


Oo & & 


3 SAY ‘ASSIGNMENTS FOR THE 
3 SAY “ 
3 SAY “% 


“d LIEUTENANTS’ 
WHOSE ‘SOUREE °FS"nens~ 
ARE BEING FROCESSED ’ 


ee) 
~] O& Ch 


PJ tJ tJ 


required for the processing files 
SELECT 2 

USE assigned INDEX assigned 

SELECiIC 

USE +t ptes 

SEeEeTaS 

USE f1leé 

SELECT 4 

USE filer 

SIORE 22). te cen 

a 8,23 SAY ’ : 
a) 8,25 SAY FIRS? —-ASs. 
STORE ‘08/15/86’ TO tdate 


* get each officer under assignment and determine the 
* unit to be assigned or defere it for the second pass 
DO WHILE .NOT. EOF() 

* initialize temporary memvars 


STORE 
STORE 
STCGRE 
> GRE 
STORE 
SiGRE 
STORE 
57 ORE 
SToRe 
STORE 
STORE 
STORE 
STORE 
SlTERE 


-F. TO granted 

-T. TO preference 
serno TO tserno 
rank TO trank 
source TO tsource 
specialty TO tspec 
asnweight TO weight 
marstat TO marst 

: * FOr Cunit , al, fuses 
mite l Teed 

units TO tu2 

tmitos Pe eas 

-F. TO resolved 

1 TO loopent 


* determine which of the requested units 


* will be examined next 
DO WHILE .NOT. 


ie 


(ist, 
- AND. 


ama, Or 3rd) 
resolved loopcnt < 4 
loopcnt = 1 


STORE tul TO tu 


ESE 


- 


IF loopent = 2 
STORE tu2 TO tu 
Bese 
STORE tu3 
ENDIF 


TO tu 


ENDIF 


* check if requested by the officer unit is available, 
%#1.2., examine it there exists an officer under 
* assignment whose present unit is the requested unit 
JE eee. 5S 
LOCATE FOR specialty = tspec .AND. unitname = tu, 
-AND. serno # tserno .AND. .NOT. DELETED() 

lr 2h. EGE (>) 

STORE serno TO idno 

SELECT a2 

LOCATE FOR serno = idno .AND. .NOT. DELETED () 


IP whl. EGE) 
* someone else from the requested unit is to be moved 
% check if someone else has requested the same unit 
SELECT 3 
STORE .F. TO done 
DO WHILE .NOT. EOF() .~.AND. .NOT. done 
iP =. NOT. BPELETED (> 
IF specialty = tspec .AND. serno # tserno 
IF uniti=gtu .OR. unite=tu .OR. unit3=tu 
STORE .T. TO done 
ENDIF 
ENDIF 
ENDIF 
SEIP 
ENDDO 


IF .NOT. done 
*% nobody else requests the same unit, requested 
* unit is granted, record is marked for deletion 
SreReE sti TO tums. 
DO CASE 
CASE loopcnt = i 
STORE 0 TO tweight 
CASE loopcnt = 2 
STORE 1 TO tweight 
CASE loopcnt = 3 
STORE 2 TO tweight 
ENDCASE 
STORE... TGQ granted 
LOCATE FOR serno = tserno 
DELETE 
SELEETSS 
LOCATE FOR serno = idno 
DELETE . 
STORE .T. TO resolved 


pen 
bh 
~J 


ELSE 
* somebody else requests the same unit, check 
*% assignment weights to see whom will Se 9} Ven 
Sa the preference to 
DO WHILE ((.NOT. EOF()) .~AND. (preference) ) 
IF .NOT. BDEEETED © 
IF serno # tserno .AND. specialty = tspec 
IF uniti=tu .OR. unit2=tu, 
-OR. unit3=tu 
IF asnweight * weight 
STORE .F. TO preference 
EESE 
IF asnweight = weight 
IF marst = ‘5S’, 
-AND. marstat # ‘5S’ 
STORE .F. TO preference 
ENDIF 
ENDIF 
ENDIF 
ENDIF 
ENDIF 
ENDIF 
SE IP 
ENDDO 


IF preference 
* officer requested this unit has the 
* preference, unit is granted, record 


* 1s marked for deletion 
STORE tu TO tunit 
DO CASE 


CASE loopcnt = 1 
STORE O TO tweight 
CASE loopcnt = 2 
STORE 1 TO tweight 
CASE loopent = 3 
STORE 2 TO tweight 
ENDCASE 
STORE .T. TO granted 
LOCATE FOR serno = tserno 
DELETE 
SEEEET 2 
LOCATE FOR serno = idno 
DELETE 
STORE .T. TO resolved 
ENDIF 
ENDIF 
ENDIF 
ENDIF 
STORE loopcent + 1 TO loopent 
ENDDO 


128 


IF .NOT. resolved 

* unresolved assignment, defere it for the next pass 
STORE “x TOV bunrt 
STORE 3 TO tweight 
ST@GRE ~.F. 10 ok 

ENDIF 


* Build record in the file containing the assignments 

SELECT 1 

APPEND BLANK 

REPLACE serno WITH tserno, rank WITH trank,, 
source WITH tsource, specialty WITH tspec 

REPLACE unitname WITH tunit, asnweight WITH tweight,, 
asgndate WITH CTOD(tdate) 

SELECT 4 

SERIF 

ENDDO 


* second pass 


fee OT. ok 

* unresolved assignments exist 
aeg,25 SAY * SEGUND FASS" 
STORE .F. TO resolved 


moelECT i 
* Build temporary file containing unresolved assignments _ 
COPY TO fileB FOR unitname = ’*¥’ .AND. source = ’NCOS’ 
SELECT S 
USE files 


STORE .F. TO deletion 


* get one record at a time and try to satify request 
DO WHILE .NOT. EOF () 

STORE serno TO tserno 

STORE specialty TO tspec- 

STORE ’ ero Eun? e 


SELECT 2 

* find requested units and store them into memvars 
LOCATE FOR serno = tserno 

SIORE Uniti TO tul 

Sore Units TG tus 

SeOneE wnit3 re. tus 

STORE .F. TO found 

STORE .T. TO requested 

GO TOP 


ays 


*% find available units 
DO WHILE .NOT. EOF() . AND. .~NOT. found 
IF .~.NOT. DELETED () 
IF serno # tserno .AND. specialty = tspec 


STORE serno TO idno 


* unit available 
DO CASE 


CASE unitname = tutl 
%* unit is the ist requested 


STORE .T. TO found 
STORE unitname TO tunit 
STORE 90 TO tweight 

CASE unitname = tuZ 

*%® unit is the 2nd requested 
STORE .T. TO *toumd 
STORE unitname TO tunit 
STORE 1 TO tweight 

CASE unitname = tu3 

* unit is the 3rd requested 
STORE .7. TO *tounmd 
STORE unitname TO tunit 
STORE 2 TO tweight 

OTHERWISE 

* found available unit is not requested 
STORE .F. TO requested 

ENDCASE 
ENDIF 
ENDIF 
SK IF 
ENDDO 


IF found 
%® unit available is one of the requested, mark record 
* for deletion, so that it will not be encountered again 
LOCATE FOR serno = idno 
DELETE 
STORE .T. TO resolved 


EESE 
IF .NOT. requested 
* available unit is not requested 
* mark record for deletion 
LOCATE FOR serno = idno 
STORE unitname TO tunit 
STORE 3 TO tweight 
STORE .T. TO resolved 
DELETE 
SESE 
a 22,18 SAY ‘OFFICER CANNOT BE ASSIGNED’‘’GET tserno 
ENDIF 
ENDIF 


1.30 


SELECT 1 
FIND %tserno 


IF resolved 
* update record in assigned file 

REPLACE unitname WITH tunit, asnweight WITH tweight 
Ele 


* no available unit found, delete created in assigned 
* file record officer will remain in the same unit 


HSS 
STORE .T. TO deletion 
ENDIF 
Semeey . o 
STORE .F. TO resolved 
SKIP 
ENDDO 
ENDIF 
IF deletion 
aeeeor, i 
PACE 
ENDIF 


* uodate USERLOG file 

SeEECT 6 

USE userid 

LOCATE FOR password = UPPER (psw) 

Seerell 

USE userlog 

APPEND BLANE 

REPLACE username WITH F-fsusername, task WITH ‘ASSIGNMENTS’ ,, 
progname WITH ’ASSIGNO2Z’, lLogdate WITH DATEC),, 
logtime WITH TIME() 

CLOSE DATABASES 

Peeeve FILE filesS.dbf 

DELETE FILE fileé.dbf 

Peeenwe PILE filer.dbf 

Meeetre FILE filesS.dbft 

RETURN 


tt At et tt et tt PROGRAM MKAUXFLI HH Ht et SE et 


* This program creates the temporary files required for the 
* assignment processing of the 2nd lieutenants 


DO window 

SEEEET 1 

USE serves 

SEBEECT 2 

USE officer 

SEEECI> 

USE requests 

SELEC hi 

@ 8,30 SAY “FPIEEBL 3... .32eee 

COPY TO filei FOR unitname = ‘’ARTC’ .AND. duty = ’F/CDR’ 

a 8,45 SAY ‘READY’ 

SEEECW 24 

USE filel 

a. 9,30 SAY @FRLE? 2.62.2 : 

JOIN WITH B TO file? FOR serno=B-*serno . AND. B-*source=’MA’, 
FIELDS serno, rank, source, specialty, unitname 

a 9,45 SAY ‘READY’ 

SELBET 2 

10,30 SAY “F LEESMe. -.c fi 

COFY TO file3 FOR rank = ‘01% .AND. source = ’NCOS’ 

@ 10,45 SAY ’READY’ 

SELEBGA 

@/11.300Sar “FF LLE4 2a eee f 

COFY TO file4 FOR enroldate <= CTOD(‘0O?7/31/86’) - 1065 

a 11,45 SAY ‘READY’ 

SEL_LSBGT 3S 

USE file4 

SELEGT 6 

USE files 

@ 12,30 Saige EES «ike - 

JOIN WITH E TO fileS FOR serno = E-*+serno., 
FIELDS serno,rank,source,specialty,asnweight,marstat,, 
children, unitname, enroldate 

a 12,45 SAY ‘READY’ 

SEERET°s 

USE requests 

SBRECT 7 

USE filed 

® 13,30 SAY @weeG <2. if 

JOIN WITH C TO #11le6 FOR serno = C-*+serno , 
FIELDS serno,rank,source,specialty,asnweight,marstat,, 
children,unitname,enroldate,unitil ,unit2Z,unit3,submdate 

@ 13,45 SAY ’READY’ 

CLOSE DATABASES 

DELETE PIs f2leoeab. 

USE #11e6 


COPY TO files 
met4.50 SAY ‘FILET .«.--.... ‘ 
COPY TO file? 

@ 14,45 SAY ‘READY’ 

CLOSE DATABASES 

DELETE FILE file3.dbf 

DELETE FILE file4.dbf 

RETURN 


eo 


PROGRAM ASSIGNOS3 HHH EHHKH EEE EHH ENSE 


ME EE EE HHH HEH 


* This performs the assignments of the captains, and updates 


* USERLOG file 


* Build required temporary files 
DO mkauxfl 3 


* display window on the screen 
DO windowl 


* assign captains to units in which they can serve 
* by combining requests and assignment weights 


ASSIGNMENTS FOR THE CAPTAINS“ 
ARE BEING PROCESSED’ 


3 5,23 SAY ° 
3 6,23 SAY ’ 


* open required for the processing files 


SEEECK 41 

USE assigned INDEX assigned 

SEVEER 2 

USE files 

USE ¥1iee 

SELECT 4 

USE filer 

SPORE shaw 1U. ok 

2 8,23 SAY ’ g 
a 8,23 SAY ’ FIRST PASS’ 
STORE ‘08/15/86’ TO tdate 


* get each officer under assignment and determine the 
* unit to be assigned or defere it for the second pass 
DO WHILE .~.NOT. EOF () 

* initialize memvars 

STORE .F. TO granted 

STORE .T. TO preference 


STORE 
STORE 
2 1GRE 
STORE 
STORE 
STORE 
STORE 
> TGRE 
STORE 
STORE 
STORE 
STORE 


serno TO tserno 
rank TO trank 
source TO tsource 
specialty TO tspec 
asnweight TO weight 
marstat TO marst 

i * TO. tuna €, tul,tusecas 
uniti TO tul 

units TO tus 

uni Ej EMS 

-F. TO resolved 

1 TO loopecnt 


1.34 


* determine which of the requested units 
* will be examined next (ist, “@nd, or 3rd) 
DO WHILE .NOT. resolved .AND. loopcnt <= 4 
IF loopcnt = i : 
STORE tui TO tu 
ELSE 
IF loopcnt = 2 
STORE tus TO tu 
ELSE 
STORE tu3 TO tu 
ENDIF 
ENDIF 


*% check if requested by the officer unit is available 
SELECT 3 
LOCATE FOR specialty=tspec .AND. source=tsource .AND., 
unitname=tu .AND. sernot#tserno .~.AND. .~.NOT. DELETED() 
IF .~NOT. EOF () 
STORE serno TO idno 
SELECT 2 
LOCATE FOR serno = idno .AND. .NOT. DELETED () 


LF Nim. ECR @ 
*%* requested unit available,check if someone else 
* requests the same unit 
SELECT 3 
STORE .F. TO done 
DO WHILE .NOT. EOF() . AND. .NOT. done 
fe NOT 2) DELEIEDC) 
IF specialty = tspec .AND. serno # tserno, 
-AND. source = tsource 
IF uniti=tu .OR. unite=tu .OR. unit3=tu 
STORE .T. TO done 
ENDIF 
ENDIF 
ENDIF 
SE IP 
ENDDO 


IF .NOT. done 
% nobody else requests the same unit, requested 


*% unit is granted, record is marked 
STORE tu TO tunit 
DO CASE 


CASE loopcnt = i 
STORE © TO tweight 
CASE loopcent = 2 
STORE i TO tweight 
CASE lLoopcnt = 3 
STORE 2 TO tweight 
ENDCASE 


STGRE .7. 1G granted 
LOCATE FOR serno = tserno 
DEGETE 

SERECT += 

LOCATE FOR serno = idno 
DELETE 

STORE .T. TO resolved 


ELSE 
* somebody else requests the same unit, check 
* assignment weights to see whom will be given 
* the preference to 
DO WHILE ((.NOT. EQF()) .AND. (preference) ) 
IF .NOT. DELETED () 
IF serno # tserno .AND. specialty=tspec, 
-AND. source = tsource 
IF unmiti = tu .OR. unite = tu, 
~-OR. units = tu 
IF asnweight >? weight 
STORE .F. TO preference 


EESE 
IF asnweight = weight 
IF marst = ’S%, 
eAND. marstat # ‘S’ 
STORE .F. TO preference 
ENDIF 
ENDIF 
ENDIF 
ENDIF 
ENDIF 
ENDIF 
Skatr 


ENDDO 


IF preference 
* officer requested this unit has the 
* preference, unit 1S granted, record 


* 1s marked for deletion 
STORE tu TO tunit 
DO CASE 


CASE loopcnt = 1 
STORE © TO peau 
CASE loopcnt = 
STORE i TO eweleee 
CASE loopcnt = 3 
STORE 2 TO tweight 
ENDCASE 
STORE .T. FO granted 
LOCATE FOR serno = tserno 
DEPETE 


1:36 








Sie ee 
LOCATE FOR serno = idno 


DELETE 
STORE .T. TO resolved 
ENDIF 
ENDIF 
ENDIF 
ENDIF 
STORE loopcnt + 1 TO loopcnt 
ENDDO 


IF .NOT. resolved 

* unresolved assignment, defere it for the next pass 
STORE ’#% TO tunit 
STORE 3 TO tweight 
STORE .F. TO ok 

ENDIF 


* Build record in the file containing the assignments 

SELECT 1 

APPEND BLANE 

REPLACE serno WITH tserno, rank WITH trank,, 
source WITH tsource, specialty WITH tspec 

REPLACE unitname WITH tunit, asnweight WITH tweight,, 
asgndate WITH CTOD(tdate) 

SELECT 4 

St LP 

ENDDO 


* second pass 


PewevOtT. ok 

* unresolved assignments exist 
a 8,23 SAY ’ SECOND PASS’ 
STORE .F. TO resolved 
STORE .F. TO deletion 


SELECT 1 

* BDuild temporary file containing unresolved assignments 
COPY TO file8B FOR unitname = ’#’ .AND. rank = ’03’ 
SELECT & 

USE files 


* get one record at a time and try to satify request 
DO WHILE .NOT. EOF () 

*% initialize memvars 

SORE ” ‘ TO tsource 

STORE serno TO tserno x 

STORE specialty TO tspec 

STORE source TO tsource 

SIGRE-** ’ TO tunit 
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SELECT ez 

* find requested units and store them into memvars 
LOCATE FOR serno = tserno 

STORE uni tiene eal 

STORE Unitie@earesceus 

STORE unit3 TO tu3 

STORE .F. Tee ound 

STORE .T. TO requested 

GO TOP 


* find available units 
DO WHILE .NOT. EQF() . AND. .NOT. found 
le esN@T.) Deke TEeD© 
IF serno # tserno .AND. specialty = tspec, 
-AND. source = tsource 
STORE serno TO idno 
* unit available 
DO CASE 
CASE unitname = tul 
* unit is the ist requested 
STORE .1. 8 3+eGne 
STORE unitname TO tunit 
STORE 90 TO tweight 
CASE unitname = tu 
* unit is the 2nd requested 
STGRE .T. TO found 
STORE unitname TO tunit 
STORE 1 TO tweight 
CASE unitname = tu3 
* unit is the 3rd requested 
STORE .1. TG) fotne 
STORE unitname TO tunit 
STORE 2 TO tweight 
OTHERWISE 
* found available unit 1s not requested 
STORE .F. TO requested 


ENDCASE 
ENDIF 

ENDIF 

Si Ir. 
ENDDO 
IF found 
* unit available is one of the requested units, mark 
% record for deletion, so that it will not be 
* encountered again - 

LOCATE FOR serno = idno 

DEEEVE 


STORE .T. TO resolved 
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LSS 
IF .NOT. requested 
* available unit is not requested 
* mark record for deletion 
LOCATE FOR serno = idno 
STORE unitname TO tunit 
STORE 3 TO tweight 
STORE .T. TO resolved 
BELEVE 
SESE 
a 22,18 SAY ‘OFFICER CANNOT BE ASSIGNED’GET tserno 
ENDIF 
ENDIF 


SEEEET 1 
FIND %tserno 
IF resolved 
* update record in assigned file 
REPLACE unitname WITH tunit, asnweight WITH tweight 


SESE 
* no available unit found, delete created in assigned 
* file record officer, will remain in the same unit 


DELETE 
STORE .T. TO deletion 
ENDIF 
SEEEET 3S 
STORE .F. TO resolved 
SKIP 
ENDDO 
ENDIF 
IF deletion 
SELECT 1 
PACE 
ENDIF 
* update USERLOG file 
SeeeceT & 


USE userid . 

LOCATE FOR password = UPFER (psw) 

Selec! 7 

USE userlog 

APPEND BLANK 

REPLACE username WITH F-Susername, task WITH ‘ASSIGNMENTS’ ,, 
progname WITH ’ASSIGNO3’, logdate WITH DATE(),, 
Logtime WITH TIME() 

CLOSE DATABASES 

Mebete FILE filesS.dbf 

Beeete FILE fileé.dbf 

PebeETe FILE filer.dbf 

Meeete FILE file6B.dbf 

RETURN 


To? 


It He HH HH He He HE HH HH HH HH PROGRAM MKAUXFL3 HHH HHH HEE HH HEH 


* This program creates auxiliary files required for the 
% assignment processing of the captains 


DO window 

SeEBCie 

USE serves 

SELECT 

USE officer 

SREEET 3 

USE requests 

SSSR) 

a 10,30 SAY “Sige s..... 8. ‘ 

COPY TO file3 FOR rank = ’037 

a 10,45 SAY ‘READY’ 

SELEGT 

a 11,30 SAY “Please ea J 

COPY TO #1le4 FOR enroldate == CTOD(’O?P/31/86’) - 1065 

a 11,45 SAY ‘READY’ 

SSE eis 

USE file4 

SEVEE ia 

USE file3 

a 12,30 SAY “°F TILES Sepeecere ocre a 

JOIN WITH E TO fileS FOR serno = E-sserno , 
FIELDS serno,rank,source,specialty,asnweight,marstat,, 
children, ’unitname, enroldate 

@ 12,45 SAY ‘READY’ 

SEEEET i 

USE files 

a 13,30 SAY “FILES. 22 2 

JOIN WITH C TO file& FOR serno = C-*serno , 
FIELDS serno,rank,source,specialty,asnweight,marstat,, 
children,unitname,enroldate,uniti ,unit2,unit3iz,submdate 

a 13,45 SAY ‘READY’ = 

CLOSE DATABASES 

DELETE FILE fileS.dbf 

USE file 

CGPY 10 fives 

a 14, 30RS6N Fee 2.2. 

CGPY IG filer 

@ 14,45 SAY ‘READY’ 

CLOSE DATABASES 

DELETE FIRE Style sean. 

DELETE FILE #1 le4-dbrt 

RETURN 
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er = 


HHH KISS HHH HHH AIS PROGRAM ASSIGNO4 HHH HIM HEKH HANIA EKEKIHAS 
%* This program performs the assignments of the majors 


DO mkauxf1l4 
DO windowl 


% assign majors graduating from WC to artillery staffs 


* by combining requests and assignment weights 
ga 3,23 SAY ’ ASSIGNMENTS FOR THE MAJORS’ 

a 6,23 SAY “ GRADUATING FROM THE WAR COLLEGE’ 

a f,2353 SAY ’ ARE BEING FROCESSED’ 

ga 8,23 SAY “ ' FIRST PASS’ 

STORE ‘08/03/86’ TO tdate 


* open required for the processing files 
SeLeCT i 

USE assigned INDEX assigned 
Seceeyt = 

USE staffs 

Select 3 

mse file3 

SELECT 4 

USE file4 

SEeEEC! 3 

SV@Re © TO cnt 

STORE .T. TO found 


DO WHILE found 
IF .~.NOT. DELETED () 


SEuReE ” Tweenies cit tus, tusk 
STORE serno TO tserno 
STORE source TO tsource 


STORE specialty TO tspec 
STORE asnweight TO weight 


Srene united TO tu 
STORE unit? Toy bis 
STORE unit3 TO tu3 


* find requested units and store name, echelon, 
* and readiness into temporary memvars 
STORE 1 TO loopcnt 

STORE .F. TO resolved 

STORE .T. TO preference 
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DO WHILE .NOT. resolved .AND. loopcnt < 4 
IF lLoopcnt = 1 
STORE tut TO tu 
PESE 
IF loopcnt = 2 
STURE EUS This 
ELSE 
STORET LUS Tomer 
ENDIF 
ENDIF 
SELEET 1 
LOCATE FOR serno # tserno .AND. unitname = tu 


IF EOE) 
* requested unit is available 
* check if somebody else requests the same unit 
SELECT 4 
DO WHILE .NOT. EOF () .AND. preference 
IF .NOT. DELETED() .AND. serno # tserno 
IF uniti=tu .OR. unitZ@=tu .OR. unit3s=tu 
IF asnweight +? weight 
STORE .F. TO preference 
SESE 
IF asnweight = weight 
IF marst = ’S’% .AND. marstat # ‘5S’ 
STORE .F. TO preference 
ENDIF 
ENDIF 
ENDIF 
ENDIF 
ENDIF 
SKIP 
ENDDO 


IF preference 

* officer requested. this unit has the preference, 

* unit 1s granted, record is marked for deletion 
STORE tue TO tunit 


DO CASE 
CASE loopcnt = 1 
STORE © TO ie 
CASE loopcnt = 2 
STORE 1 TO tweight 
CASE loopcnt = 3 
STORE 2 TO tweight 
ENDCASE 
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LOCATE FOR serno = tserno 

DELETE 

SPEEBEGT 1 

FIND &#tserno 

REFLACE unitname WITH tunit,, 
asnweight WITH tweight,, 
asgndate WITH CTOD(tdate) 

S'TGRE cnt + 1° TO ent 

STORE .T. TO resolved 

SELECT -3 

DELETE 

Seeee is. 

LOCATE FOR unitname=tunit .AND. .~.NOT. DELETED () 

DELETE 


ENDIF 
ENDIF 


STORE loopcnt + 1 TO loopecnt 


ENDDO 


ENDIF 
SELECT 3 
SKIP 
ie EOF () 


GO TOP 


IF cnt # O 


SURE 


EESE 


O TO cnt 


STORE .F. TO found 


ENDIF 
ENDIF 


ENDDO 

a 8,23 SAY 
SELECT 3 
GO TOP 


DO WHILE .NOT. 


a 6] NOT. 
STORE 
> ORE 
STORE 
STORE 
STORE 


SECOND FASS’ 


EGE © 


DELETED () 

serno TO tserno 
uniti TO tui 
unit? TO tu2 
Hames TO yEun3 
-T. TO found 
SEEEET 2 


LOCATE FOR unitname = tul .AND. .NOT. DELETED (} 
IF ~.NOT. EOF () 

STORE © TO tweight 

STORE tul Te tunit 


BPELETE 
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EES e 
LOCATE FOR unitname = tu2 .AND. .NOT. DELETED() 
IF .NOT. EOF () 
STORE 1 TO tweight 
STOREwet= 10. eunae 
DEBS Te 
eis) S 
LOCATE FOR unitname = tu3 .AND. .NOT. DELETED() 
i= aN. EGF © 
STORE 2 TO tweight 
STGRE STORE tu3 70 Ena 
NS SiS 
eUsle 
LOCATE FOR .NOT. DELETED() 
IP Net. eee 
STORE 3 TO tweight 
STORE unitname TO tunit 
DERaTe 
ee oe 
go 23,18 SAY ’*** ERROR’ 
STORE .F. TO found 
ENDIF 
ENDIF 
ENDIF 
ENDIF 
ENDIF 


IF found 
SEeBeET 1 
FIND &tserno 
REPLACE unitname WITH tunit, asnweight WITH tweight,, 
asgndate WITH CTOD(tdate) 
ENDIF 


SERECi = 

DEER Ge 

Sk IF 
ENDDO 


CLOSE DATABASES 

DELETE filevtilescdbs 
DELETE file tile4.dbf 
DELETE FILE stattsodur 
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* assign majors to units and staffs in which they can 
* serve By combining requests and assignment weights 
DO windowl 
Mas OAY 
a 6,23 SAY 
Pen ,2> SAY 


Cg a: 


4 


ASSIGNMENTS FOR THE MAJORS’ 
“SERVING IN STAFFS AND COMBAT UNITS’ 
3 ARE BEING FROCESSED’ 


* open required for the processing files 
Seeecr i 

USE assigned INDEX assigned 

Select = 

USE files 

Selec! 3 

USE fileé 

SELECT 4 

USE selected INDEX selected 

SELECT 3S 
USE filer 
SroRe .1. 
a 8,23 SAY 
a 8,23 SAY FIRST FASS’ 
STORE ‘08/15/86’ TO tdate 


TO ok 


é 


é 


* get each officer under assignment and determine the 
* unit to be assigned or defere it for the second pass 


DO WHILE: .NOT. EOF () 
STORE .F. TO granted ~ 
STORE .T. TO preference 
STORE ser-no TO tserno 


STORE rank TO trank 

STORE source TO tsource 

STORE specialty TO tspec 

STORE asnweight TO weight 

STORE marstat TO marst 

STORE ’ RO eetina = thle. tis tS 
SELECT 4 

FIND &tserno 

fee. NOT. EOF () 


STORE schoolname TO tunit 
STORE © TO tweight 


SELECT 3 
LOCATE FOR serno = tserno 
DELETE 
SESE 
SEEECT 3 
SURGRE unitl TO tut 
STORE unit? TO tu2 
SPORE units TO tus 
STORE .F. TO resolved 
STORE 1 TO loopcnt 


* determine which of the requested units 
* will be examined next (ist, @nd, or 3rd) 
DO WHILE .NOT. resolved .AND. loopent < 4 


IF loopcnt = 1 
STORE. Guia eu 
El-Se 
IF lLoopent = 2 
STORE SEU. TE tw 
ESE 
STERE “tus TE feu 
ENDIF 
ENDIF 


* check if requested unit 1S available, 


SELEG=3 
LOCATE FOR specialty = tspec .AND. source = tsource, 
-AND. unitname = tu .AND. serno # tserno, 


~AND. .~NOT. DELETED () 
IF .NOT. EQF() 
STORE serno TQ idno 
SEEECIIe 
LOCATE FOR serno = idno .AND. .NOT. DELETED() 


IF .NOT. EGF () 
* someone else from the requested unit 1s to be 
* moved, check if someone else has requested the 
* ~ same unit 

SELECT -s 

STORE .F. TGQ done 


DO WHILE .NOT. EQF() .~.AND. .~.NOT. done 
IF .NOT. DELETERD® 
IF specialty=tspec .AND. serno # tserno, 
-AND. source = tsource 
IF uniti = tu .OR. units = tu, 
OR. -uUnTes, =Feu 
STORE .T. TO done 
ENDIF 
ENDIF 
ENDIF 
SE IP 
ENDDO 


IF .~.NOT. done 

* nobody else requests the same unit, requested 

* unit is granted,record is marked for deletion 
STORE tu 71@ tuniret 
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ees ate 


DO CASE 
CASE loopcnt = 1 
STORE 0 TO tweight 
CASE loopcnt = 2 
STORE 1 TO tweight 
CASE loopcnt = 3 
STORE 2 TO tweight 
ENDCASE 


STORE .T. TO granted 
LOCATE FOR serno = tserno 
DELETE 
SELECT = 
LOCATE FOR serno = idno 
PEEVE 
STORE .T. TO resolved 
SESE 
* somebody else requests the same unit, check 
* assignment weights to see whom will be given 
= the preference to 
DO WHILE ((.NOT. EOQF()) .AND. (preference)? 
IF .N@T. DELETED() 
IF serno # tsernoa, 
~-AND. specialty = tspec, 
~AND. source = tsource 
Teen teen EM Ometnres = Eu, 
SOR. Units = Eu 
IF asnweight * weight 
STORE .F. TO preference 


ELSE 
IF asnweight = weight 
IF marst = ‘S’, 
~AND. marstat # ‘9S’ 
STORE .F. TO preference 
ENDIF 
ENDIF 
ENDIF 
ENDIF 
ENDIF 
ENDIF 
SE IP 


ENDDO 


IF preference 
* officer requested this unit has the 
* preference, unit 1s granted, record 
* is marked for deletion 

STORE tu TO tunit 


14¢ 


DO CASE 
CASE loopcnt = 1 
STORE O TO tweight 
CASE leepent = 2 
STORE 1 TO tweight 
CASE loopcnt = 3 
STORE 2 TO tweight 
ENDCASE 


STORE .T. TO granted 
LOCATE FOR serno = tserno 
DELETE 
SELECT. 2 
LOCATE FOR serno = idno 
DELETE 
STORE .T. TO resolved 
ENDIF 
ENDIF 
ENDIF 
ENDIF 
STORE loopcnt + 1 TO loopcnt 
ENDDO 


IF .~.NOT. resolved 
* unresolved assignment, defere it for the next pass 
STORE- +" 8 Sein & 
STORE 3 TO tweight 
STORE .F. TO ok 
ENDIF 
ENDIF 


o 


* Build record in the file containing the assignments 

SELEGYT 1 

AFFEND BLANK 

REPLACE serno WITH tserno, rank WITH trank,, 
source WITH tsource,. specialty WITH tspec 

REPLACE unitname WITH tunit, asnweight WITH tweight,, 
asgndate WITH CTOD(tdate) 

SELECTS 

SKIP 

ENDDO 
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* second pass 


IF .NOT. ok 
* unresolved assignments exist 
SELECT 6 
USE unit INDEX unit 
a B,23 SAY ” SECOND FASS’ 
STORE .F. TO resolved 
STORE .F. TO deletion 


SELECT 1 

* Build temporary file containing unresolved assignments 
COPY TO fileS FOR unitname = ‘#° AND. rank = '04’ 
SELECT S&S 

USE fileB 


* get one record at a time and try to satify request 
DO WHILE .NOT. EOF () 

STiORE ~~” ‘ TO tsource 

STORE serno TO tserno 

STORE specialty TO tspec 

STORE source TO tsource 

Shane ‘ TO tunit 


SELECT 2 

* find requested units and store them into memvars 
~ LOCATE FOR serno = tserno 

STORE ’ * 72peet 

STORE wefinished TO twe 

STORE uniti TO tul 

SPOne tmite TO tus 

STORE unit3 TO tu3 

STORE .F. TO found 

STORE .T. TO requested 

GO TOF 


* find available units 
DO WHILE .NOT. EOF() .AND. .NOT. found 
Te .NOm. DELETED <) 
IF serno # tserno .AND. specialty = tspec, 
~AND. source = tsource 
STORE serno TO idno 
*¥ unit available 
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DO CASE 

CASE unitname = tul 

* unit is the ist requested 
STORE .T. TO found 
STORE unitname TO tunit 
STORE O TO tweight 

CASE unitname = tue 

*¥ unit is the @nd requested 
STORE .T. TO found 
STORE unitname TO tunit 
STORE 1 TO tweight 

CASE unitname = tu3 

* unit is the 3rd requested 
STORE .T.97 1G totme 
STORE unitname TO tunit 
STORE 2 TO tweight 


OTHERWISE 
* found available unit 1s not requested 
IF unitname = ‘OAB : 
IF twe 
STORE .F. TO requested 
ENDIF 
aS) Ss 
STORE unitname TO tu 
SELECT 6 
FIND &tu 
IF category = ‘S ‘° 
IF thc 
STORE .F. TO requested 
ENDIF 
ELSE 
STORE .F. TO requested 
ENDIF 
ENDIF 
SEREET =2 
ENDCASE 
ENDIF 
ENDIF 
SE IP 
ENDDO 
IF found 
* unit available is one of the requested units, mark 
* record for deletion, so that it will not be 
5 encountered again 


LOCATE FOR serno = idno 
DERE e= 
STORE .T. TO resolved 


Ses 
IF .NOT. requested 
*% available unit is not requested 
* mark record for deletion 
LOCATE FOR serno = idno 
STORE unitname TO tunit 
STORE 3 TO tweight 
STORE .f. TO resolved 
DELETE 
ELSE 
@ 22,18 SAY ‘OFFICER CANNOT BE ASSIGNED’GET tserne 
ENDIF 
ENDIF 
SeLEET 1 
FIND Ztserno 
IF resol ved 
* update record in assigned file 
REPLACE unitname WITH tunit, asnweight WITH tweight 
Sess 
* no available unit found, delete created in assigned 
* file record. Officer will remain in the same unit 


DELETE 
STORE .T. TO deletion 
ENDIF 
Seeeet a 
STORE .F. TO resolved 
SKIF 
ENDDO 
ENDIF 
IF deletion 
SELECT 1 
PACK. 
ENDIF 


* update USERLOG file 

Seiecl } 

USE userid 

LOCATE FOR password = UPFER (psw) 

Soe! +r 

USE userlog 

AFFEND BLANE 

REPLACE username WITH F-susername, task WITH ‘ASSIGNMENTS’ ,, 
progname WITH ’ASSIGN®4’, logdate WITH DATE(),, 
logtime WITH TIME() 

CLOSE DATABASES 

Meeewe FILE fileS.dbf 

Beeete FILE f1le6.dbf 

Boeeete FILE ftiler.dbf 

Peereie FILE fileB.dbf 

RETURN 


HHH HHH HHH HHH HHH PROGRAM MKAUXFL4 | Bea tea te, Sa Sica Dea tice Da tice Uicathcs Satire Dea thea ties thea Dea thea Dita tice a 


* This program builds the required auxiliary files for the 
* processing of the assignments of the majors 


DO window 


* build file containing personal data and 

* requests of the graduaring from WC majors 

a+8,30 SAY “RiEES ieee 

SELEC ia 

USE officer 

SEEECH ce 

USE serves 

COPY TO fileil FOR unitname = ‘WC’ 

SEECE Ty 2s 

USE filel 

JOIN WITH A TO fileZ FOR serno = A-*serno , 
FIELDS serno, = %urce,specialty,marstat,unitname,asnweight 

SELECT 4 

USE requests 

SEEEE Ts 

USE filez 

JOIN WITH D TO file3 FOR serno = D-*serno , 
FIELDS serno,source,specialty,unitname,uniti,unite,units,, 

asnweight ,marstat ,wefinished 

a 8,45 SAY “’READY’ 

SEEEET G6 

USE F1le3 

a) J, o0mSay FTES 2 iccee cone : 

COPY TO file4 

a 9,45 SAY ‘READY’ 

CLOSE DATABASES 

DELETE Pile filet dbf 

DELETE PuIBbe ri le2zsobt 

SEEEGT. 

USE assigned INDEX assigned 

a 10,30 Shige ooTGNED).... 5 

APPEND FROM file3 

GO TOP 


DO WHILE .NOT. EOF () 
IF rank = ‘O04’ 
REFLACE unitname WITH ‘’*’,, 
asgndate WITH CTOD(‘08/01/86'),, 
asnweight WITH 0 
ENDIF 
Se 
ENDDO 


2 10,45 SAY ‘READY’ 


Loe 


Seeec, & 


USE unit 

MeO SAY “STAPES ... ces i 

COFY TO staffs FOR category = ‘’S ’ .AND. unitname # ‘ABD/HAGS’ 
CLOSE DATABASES 

SELECT 

USE staffs 

APFEND FROM unit FOR echelon = ‘’AC/AC’ 


8 11,45 SAY ‘READY’ 

CLOSE DATABASES 

* build file containing personal data and requests 

* for the rest of majors under assignment 

SELECT 1 

USE serves 

SBeeecr, 

woe officer 

Wepre! SAY “PILES 2.2.5... J 

COFY TO filei FOR rank = '04’° 

Seeecl 1 

COFY TO filet FOR DATE) - enroldate *= 600, 
~AND. unitname # ‘WC J 

Sete! 3 

USE file2 

SELECT 4 

USE filel 

JOIN WITH C TO filesS FOR serno = C-*serno , 
FIELDS serno,rank,source,specialty,asnweight,marstat,, 

unitname 

3 12,45 SAY ‘READY’ 

CLOSE DATABASES 

BEPETE FILE filel.dbf 

BPebele FILE filee.dbft 

Seeeet 3 

USE requests 

SEeeeT & 

USE files 

ome =O SAY ‘FILES ......-- ; 

JOIN WITH E TO file& FOR serno = E-*serno, 
FIELDS serno,rank,source,specialty,asnweight,marstat,, 

unitname ,unitl,unit2,unit3,wefinished 

CLOSE DATABASES 

Peete FILE fileS.dbf 

Smee r r 

USE filed 

eHPY 10 files 

dg 13,45 SAY ‘READY’ 

pete SAY “FILES ....++sss / 

COFY TO filer 

a 14,45 SAY ‘READY’ 

CLOSE DATABASES 

RETURN 


Lao 


tt He Ee EE Et PROGRAM ASSIGNOS te He ee et ee Se Se ee Se ae ee et 


* This program performs the assignments of the lieutenant 
+ colonels 


* build necessary auxiliary files 
DO mkauxfls 


* assign lieutenant colonels to units and staffs in which 
* they can serve by combining requests and assignment weights 


DO windowl 
a G,2l SAY “ASSIGNMENTS FOR THE LIEUTENANT COLONELS’ 
® 6,21 SAY ” ARE BEING FROCESSED’ 


* open required for the processing tiles 
SEEEC Ta 

USE assigned INDEX assigned 

SELECT i 

USE files 

SEERECTH > 

USE fileé 

SELECT 4 

USE selected INDEX selected 

SELEC #4 

USE filefr 

SrORE <i. TO ok 

® SF2s SAY “ : 
VP Ge2o SAY ~ PIRS? Fass” 
STORE ’'08/135/86’ TO tdate 


* get each officer under assignment and determine the 
* unit to be assigned or defere it for the second pass 
DO WHIEES NGi.» EGR 
STORE .F. TO granted 
STORE .T. TO preference 
STORE serno TO tserno 
STORE rank T0 trank 
STORE source TO tsource 
STORE specialty TO tspec 
STORE asnweight TO weight 
STORE marstat TO marst 
STERB. “ * TO tunit,tul, tuc yeas 
SELEC are 
FIND &tserno 
IF .NG!T. EEE G 
STORE schoolname TO tunit 
STORE © TO tweight 
SEL ECICs 
LOCATE FOR serno = tserno 
DELETE 





Sl s\5 
SELECT 3 
STORE Uniei Ta etul 
STORE unit2 TO tuz 
Sven eetinne so Tey bus 
STORE .F. TO resolved 
STORE 1 TO loopcnt 


*% determine which of the requested units 
* will be examined next (ist, @nd, or 3rd) 
DO WHILE .NOT. resolved .~.AND. loopcnt «= 4 
IF loopcnt = 1 
SRE COL sie eu 
ay LS) el 
IF loopent = 2 
STORE tus TO tu 
EISE 
STORE tu3 TO tu 
ENDIF 
ENDIF 


cam) 


* check 1f requested unit 15 available, 
SEeeeti.. 
LOCATE FOR unitname = tu .AND. serno # tserno, 
~-AND. .~.NOT. DELETED () 
IF .~.NOT. EOF (} 
STORE serno TO idno 
SELEGE 2 
LOCATE FOR serno = idno .AND. .NOT. DELETED ()} 


ire net. EOF C 
* someone else from the requested unit is to be 
* moved check if someone else fas requested the 
* same unit 

SELECT 3 

SIRE 2-F. TO done 


DO WHILE .NOT. EQOF() . AND. .NOT. done 
1S SN eo DS LS 1 Sg ee, 
IF serno # tserno 
Pe eUnt tiem. OR. Cmts = tu, 
-OR. unit3 = tu 
STORE .T. TO done 
ENDIF 
ENDIF 
ENDIF 
Sk le 
ENDDO 


IF .N@iieedene 

* nobody else requests the same unit, requested 

*# unit 1s granted,record 15 marked for deletion 
STGRE tu TOeGarTe 


DO CASE 
CASE loopent = 1 
STORE © TO tweight 
CASE loopcnt = 2 
STORE 1 TO tweight 
CASE loopent = 3 
STORE 2 TO tweight 
ENDCASE 


STORE .T. TO granted 
LOCATE FOR serno = tserno 
DELETE 
See a 
LOCATE FOR serno = idno 
DEEETE 
STORE .T. TO resolved 
ELSE 
* somebody else requests the same unit, check 
* assignment weights to see whom will be given 
* the preference to 
DO WHILE (¢(.NOT. EOF()) .AND. (preference) } 
IF .N@T. DELETEp 
IF serno # tserno 
IF untei = tu .OR. unite = cae 
-OR. UMNrese—" te 
IF asnweight = weight 
STORE .F. TO preference 


bJ 


ELSE 
IF asnweight = weight 
IF marst = ‘SS’, 
~-AND. marstat # ‘S’ 
STORE .F. TO preference 
ENDIF 
ENDIF 
ENDIF 
ENDIF 
ENDIF 
ENDIF 
Shorr 


ENDDO 


IF preference 
* officer requested this unit has the 
* preference, unit 15 granted, record 
* 1s marked for deletion 

SIGRE cw ete canis: 
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DO CASE 
CASE loopcnt = 1 
STORE 0 TO tweight 
CASE loopent = 2 
STORE 1 TO tweight 
CASE loopcnt = 3 
STORE 2 TO tweight 
ENDCASE 


STORE .T. TO granted 
LOCATE FOR serno = tserno 
DELETE 
SELECT =z 
LOCATE FOR serno = idno 
DELETE 
STORE .T. TO resolved 
ENDIF 
ENDIF 
ENDIF 
ENDIF 
STORE loopcnt + 1 TO loopecnt 
ENDDO 


IF .NOT. resolved 
* unresolved assignment, defere it for the next pass 
Seas « =F tune 
STORE 3 TO tweight 
Sees JF. EO Ook 
ENDIF 
ENDIF 


* Build record in the file containing the assignments 

SELECT 1 

APPEND BLANE 

REPLACE serno WITH tserno, rank WITH trank,, 
source WITH tsource,. specialty WITH tspec 

REPLACE unitname WITH tunit, asnweight WITH tweight,, 
asgndate WITH CTOD(tdate) 

SELECT 3S 

SKIP 

ENDDO 


tom 


* second pass 


Le wets ok 
* unresolved assignments exist 
SELEET G6 
USE unit INDEX unit 
a 8,23 SAY ” SECOND FASS’ 
STORE .F. TO resolved 
STORE .F. TO deletion 


SELECT f 

* build temporary file containing unresolved assignments 
COPY TO 11e8 FOR unitname = ’#’ AND. rank = ‘035’ 
SELECT 5 | 


USE f11e8 


* get one record at a time and try to satify request 
DO WHILE .NOT. EOF (0) 

STORE ‘ TO tsource 

STORE serno TO tserno 

STORE specialty TO tspec 

STORE source TO tsource 

STORE ’ ‘ TO tunit 


SELECT = 

* find requested units and store them into memvars 
LOCATE FOR serno = tserno 
STORE’  TEana 
STORE wefinished TO twe 
STORE uniti TO tul 

STORE unit TO tu2 

STORE sun te aT 0) Gi 

STORE .F. TO found 

STORE .T. TO requested 

GO TOP 


* find available units 
DO WHILE .NOT. EOF() .~. AND. .NOT. found 
IF .NOT. DELETED() 
IF serno # tserno 
STORE serno TO idno 
* unit available 


DO CASE 
CASE unitname = tul 
*%* unit is the ist requested 
STORE .t.2 10 tound 
STORE unitname TO tunit 
STORE © TO tweight 
CASE unitname = tue 
*¥ unit is the 2nd requested 
STORE .T. TO found 
STORE unitname TO tunit 
STORE 1 TO tweight 
CASE unitname = tu3 
* unit is the 3rd requested 
| STORE .T. TO found 
STORE unitname TO tunit 
STORE 2 TO tweight 
OTHERWISE 
* found available unit is not requested 
IF unitname = ‘’OAB 
IF twe 
STORE .F. TO requested 
ENDIF 
ESE 
STORE unitname TO tu 
SEREET 6 
FIND &tu 
ie Category = “Ss ” 
IF twe 
STORE .F. TO requested 
ENDIF 
ELSE 
STORE .F. TO requested 
ENDIF 
ENDIF 
SBwWECT 2 
ENDCASE 
ENDIF 
ENDIF 
Silk 
ENDDO 


IF found 
* unit available is one of the requested units, mark 
% record for deletion, so that it will not be 
* encountered again 
LOCATE FOR serno = idno 
DERE Te 
STORE .T. TO resolved 


ELSE 
IF .NOT. requested 
*% available unit is not requested 
* mark record for deletion 
LOCATE FOR serno = idno 
STORE unitname TO ftunit 
STORE 3 TO tweight 
STORE .T. TO resolved 
DELETE 
ELSE 
ga 22,18 SAY ‘OFFICER CANNOT BE ASSIGNED’GET tserno 
ENDIF 
ENDIF 
SELECire! 
FIND &%tserno 
IF resolved 
* update record in assigned file 
REFLACE unitname WITH tunit, asnweight WITH tweight 
ElsSE 
* no available unit found, delete created in assigned 
* file record. Officer will remain in the same unit 


DERETE 
STORE .T. TO deletion 
ENDIF 
SEEECT 3 
STORE .F. TO resolved 
SK IF 
ENDDO 
ENDIF 
IF deletion 
SEEREiaeL 
PACK 
ENDIF 


* update USERLOG file 

SELLE Teun 

USE userid 

LOCATE FOR password = UPFER(psw) 

SELEED «8 

USE userlog 

APPEND BLANE. 

REPLACE username WITH G-?rusername, task WITH ‘ASSIGNMENTS’ ,, 
progname WITH ’ASSIGNOS’, logdate WITH DATE(),, 
logtime WITH TIME (} 

CLOSE DATABASES 

DELETE FILEV ites, da. 

DELETE FILE 421 eévebt 

DELETE. PILE stalewadas 

DELETE FILE #fileeadbrt 

RETURN 
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She es Dea tes Dee Bes tee ie es ee en ae Dea ie Dea he PROGRAM MKAUXFLS 5 Bea We Mee tes De Bea dea tes the Bea ee Bes ea Ma Ate Mite ts tke Ata tee Bead 


* This program builds the required auxiliary files for the 
* processing of the assignments of the lieutenant colonels 


DO window 


* build file containing personal data and requests 

* for the lieutenant coloneles under assignment 

SeEeeEC!T i 

USE serves 

SELECT 2 

WSE officer . 

peers) SAY “FILED «nice of 

COPY TO filei FOR rank = ’05’ 

SEEec! i 

COFY TO file2? FOR DATE() - enroldate += 600 

Seeetl 3 

USE file2 

SELECT 4 

USE filel 

JOIN WITH C TO fileS FOR serno = C-+serno , 
FIELDS serno,rank,source,specialty,asnweight,marstat,, 

unitname 

a 8,45 SAY ‘READY’ 

CLOSE DATABASES 

Pelere FILE filei.dbf 

Peeretwe FILE file2.dbt 

SeEeECT 3S 

USE requests 

Selec! 6 

USE files 

Gero SAY “FILES ...sseee : 

JOIN WITH E TO f11le6 FOR serno = E-*serno, 
FIELDS serno,rank,source,specialty,asnweight,marstat,, 

unitname ,uniti,sunit2,unit3,wcofinished 

CLOSE DATABASES 

Pewee FILE fileS.dbf 

SeElecl r 

Woeetiled 

SOrFyY 10 files 

a 9,45 SAY ‘READY’ 

memes SAY “FILET 2.62.0 : 

eer, 10 filer 

a 10,45 SAY ‘READY’ 

CLOSE DATABASES 

RETURN 
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HHL HH HHH HHH HHH HHH PROGRAM ASSIGNOG HRKLKAHLHKEKKHK AHHH 
* This program performs the assignments of the colonels 


* build necessary auxiliary files 
DO mkauxflé 


* assign colonels to units and staffs in which they can 
* serve by combining requests and assignment weights 


DO windowl 
a S,21 SAY “ ASSIGNMENTS FOR THE COLONELS’ 
a 6,21 Sai ARE BEING PRECESSen 


* open required for the processing files 
SELECT ol 

USE assigned INDEX assigned 

SEEE Ci. 

USE faites 

Se Eee ies 

USE #11e6 

SELECT 4 

USE filer 

STORE Sie oF 

go 8,25 oe : 
a 8,23 SAY * FIRST FASS’ 
STORE ‘08/15/86’ TO tdate 


* get each officer under assignment and determine the 
* unit to be assigned or defere it for the second pass 
DO WHILE .NOT. EOF () 

STORE .F. TO granted 

STORE .T. TO preference 

STORE serno TO tserno 

STORE rank TO trank 

STORE source TO tsource 

STORE specialty TO tspec 

STORE asnweight TO weight 

STORE marstat TO marst 

STOnRe: ‘ TO unit, tub, tue. cas 

STOREWiim2 El 12 eal 

STORE VYanits TO eus 

STORE unit3 TO tus 

STORE .F. TO resolved 

STORE 1 TO loopcnt 
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* determine which of the requested units 
# will be examined next (ist, @nd, or 3rd? 
DO WHILE .NOT. resolved .AND. loopcnt «= 4 
IF loopcnt = i 
STORE tul TO tu 
ELSE 
fewteepent = = 
STORE tus. TC eu 
ELSE 
STOREg&US TO tu 
ENDIF 
ENDIF 


can) 
” 


* check if requested unit 1s available 
SELEET 3 
LOCATE FOR unitname = tu .AND. serno # tserno, 
~-AND. .~NOT. DELETED () 
tee NOT eer () 
STORE serno TQ idno 
Ss) Se SS 
LOCATE FOR serno = idnmo .AND. .NOT. DELETED() 


fe aeevet. LOR 
* someone else from the requested unit 15 to be moved 
* check 1 someone else has requested the same unit 
SEEEBG, 3 
STGRE .F. TG done 
DO WHILE .NOT. EQF() .~.AND. .~.NOT. done 
TP .NG@T. DELETED (> 
IF serno # tserno 
fF tim tl—tw .GR. wunite=ta .OR. unit3=tu 
STORE .T. TO done 
ENDIF 
ENDIF 
ENDIF 
Syste 
ENDDO 


IF .NOT. done 

* nobody else requests the same unit, requested 

* unit 1S granted, record is marked for deletion 
STORE tu TO tunit 


DO CASE 
CASE loopcnt = i 
STORE 0 TO tweight 
CASE loopcnt = 2 
STORE i TO tweight 
CASE loopcnt = 3 
STORE 2 TQ tweight 
ENDCASE 
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STORE .T. TO granted 
LOCATE FOR serno = tserno 
BSS S 

SERRE ia 

LOCATE FOR serno = idno 
DELETE 

STORE .T. TO resol ved 


ELSE 
* somebody else requests the same unit, check 
* assignment weights to see whom will be given 
* the preference to 
DO WHILE ((.NOT. EOQF()) .AND. (preference) ) 
IF .NOT. DELETED () 
IF serno # tserno 
IF uniti = tu .OR. umitS = tu, 
~-OR. Units = 3Gn 
IF asnweight = weight 
STORE .F. TO preference 


ELSE 
IF asnweight = weight 
IF marst = ‘S’%, 
~AND. marstat # ‘S’ 
STORE .F. TO prefererae 
ENDIF 
ENDIF 
ENDIF 
ENDIF 
ENDIF 
ENDIF 
StF 


ENDDO 


IF preference 
* officer requested this unit has the 
* preference, unit 15 granted, record 
% 1s marked for deletion 

STORE ta TO ttumie 


DO CASE 
CASE loopent = i 
STORE O TO tweight 
CASE loopent = 2 
STORE 1 TO tweight 
CASE loopent = 3 
STORE 2 TO tweight 
ENDCASE 


STORE .T. TO granted 
LOCATE FOR serno = tserno 
DELETE 
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Sjsile Sty we 
LOCATE FOR serno = idno 


DELETE 
STORE .T. TO resolved 
ENDIF 
ENDIF 
ENDIF 
ENDIF 
STORE loopent + 1 TO loopcnt 
ENDDO 


IF .NOT. resolved 

* unresolved assignment, defere it for the next pass 
STORE ’*’ TO tunit 
STORE 3 TO tweight 
STORE ar. TO 10k 

ENDIF 


* build record in the file containing the assignments 

SELECT 1 

APPEND BLANK 

REPLACE serno WITH tserno, rank WITH trank,, 
source WITH tsource, specialty WITH tspec 

REPLACE unitname WITH tunit, asnweight WITH tweight,, 
asgndate WITH CTOD(tdate) 

SELECT 4 

SF 

ENDDO 


*% second pass 


IF .NOT. ok 

* unresolved assignments exist 
ga 8,23 SAY ’ SECOND PASS’ 
STORE .F. TO deletion 


Sseeely i 

* get one record at a time and try 
*%* to satisfy unsatisfied requests 
so TOP 

STORE © TO cnt 


BO WeIteE .NOT. EOF () 


IF unitname = ’* 4 
STORE serno TO tser-no 
a One 1G Weemit jtul, tus,tus 
SERVE Ei > 
60 TOP 


* find requested units and store them into memvars 
LOCATE FOR serno = tserno 

STORE unitl TO tul 

STORE umpts TEP eus 

STORE unmzves TO tus 

STORE .F. TO found 

* find avallable units 

SELEGT 2 

GQ TOP 


DO WHILE ((.NOT. EOF()) .~AND. (.NOT. found?) 
IF ~.NGt.) DELETED 
IF serno # tserno 
* unit available 
DO CASE 

CASE unitname = tul 

*¥ unit is the ist’ requested 
STORE unitname TO tunit 
STORE © TO tweight 
DEVE 
STORE .7T. Or feud 

CASE unitname = tus 

*¥ unit is the 2nd requested 
STORE unitname TQ tunit 
STORE 1 TO tweight 
DELETE 
STORE .7T. TOetoeund 

CASE unitname = tu3 

*¥ unit is the 3rd requested 
STORE unitname TQ tunit 
STORE 2 TO tweight 
DELETE 
STORE .7. 0 'fetad 

OTHERWISE 

* found available unit 15 not requested 
STORE: cnt + 1 TQ ent 


ENDCASE 
ENF IF 

ENDIF 

She 
ENDDO 
IF found 
* available unit is one of the requested 

SELEET ut 


REPLACE unitname WITH tunit,, 
asnweight WITH tweight 

ENDIF 
ENDIF 
SEEEE Te 
Shere 

ENDDO 
1466 


SeEECT ‘2 
BiO) nels 


Bo WHILE NOT. EGF ¢) 


IF unitname = ’* ‘ 
STORE serno TO tserno 
STene eee i tees 8 
SEEEET = 


LOCATE FOR serno # tserno .AND. .NOT. DELETED(} 
IF .NOT. EOF () 
STORE unitname TO tunit 
DELETE 
Se 
REPLACE unitname WITH tunit 
SESE 
SELEGT et 
DEEETeS 
STORE .T. TO deletion 
a 24,20 SAY ‘OFFICER CANNOT BE ASSIGNED’GET tserno 
ENDIF 
ENDIF 
SEEECT 1 
SKIP 
ENDDO 


ENDIF 

IF deletion 
SeLeecH 1 
PACE 

ENDIF 


* update USERLOG file 

Seeeel 

USE userid 

LOCATE FOR password = UPPER (psw) 

Seeeat & 

USE userlog 

APPEND BLANE 

REPLACE username WITH G-tusername, task WITH ‘ASSIGNMENTS’ ,, 
proagname WITH “ASSIGNOS6’, Llogdate WITH DATE(),, 
logtime WITH TIME () 


CLOSE DATABASES 
Beeere FILE filesS.dbf 
Beeete FILE fileé.dbf 
Meee FILE filer.dbt 
RETURN 


tor 


eH HH HE HH HH HH HH HHH PROGRAM MKAUXFLSG HHH HHH HH HHH HE HEE 


* This program builds the required auxiliary files for the 
+ processing of the assignments of the colonels 


DG window 


* Build f11l1e@ containing personal data and 

* requests for the coloneles under assignment 

SELECT a 

USE serves 

SEREG | = 

USE officer 

a 8,30 SAY “FIGs ge : 

COPY TO filei FOR rank = ‘06’ 

SEEEGT 1 

COPY TO file2 FOR DATE() —- enroldate += 300 

SELER TT ss 

USE. f1i]1e2 

SELECT 4 

USE +1 tel 

JOIN WITH C TO fileS FOR serno = C-*serno , 
FIELDS serno,rank,source,specialty,asnweight,marstat,, 

unitname 

2 8,45 SAY ‘’READY’ 

CLOSE DATABASES 

DELETE: FILE filelsdbat 

DBEETE PILE filez2adps 

SELECT ag 

USE requests 

SELEE G6 

USE files 

D PESO > SAV Gel ee Oreo eee ene ore 

JOIN WITH E TO fileé FOR serno = E-*serno, 
FIELDS serno,rank,source,specialty,asnweight,marstat,, 

unitname,unitl,unit2,unit3,wefinished 

CLOSE DATABASES 

DELETE FILE files .aer 

SERBEET 

USE fileé 

COPY TO files 

a 9,45 SAY ’READY’ 

a 10,30 SAW | Beigeey.  cects ces overs f 

COPY 10 #tirlen 

@ 190,4S’SAY ‘READY’ 

CLOSE DATABASES 

RETURN 
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E. PROGRAMS PRODUCING THE REQUIRED LISTS AND REPORTS 


i ia ira BE a a i a A i a Ed 


PROGRAM REPORTS 


EH EE EE EE EE Ee HE  -E - 


* Tis program controls the report generation operations 


CLEAR 


PUBLIC repcode 


DO rgm 


ent 


DO WHILE repcode # 9 


DO 


END 


CASE 
CASE 


CASE 


CASE 


CASE 


CASE 


CASE 


CASE 


CASE 


CASE 


repcode = 
DO listl 
repcode = 
DO list2 
repcode = 
DO list3 
repcode = 
DO list4 
repcode = 
DO listsS 
repcode = 
DO list& 
repcode = 
DO reportti 
repcode = 
DO report2 


DO rgmenu 


ENDDO 


RETURN 


a) 


=] 


8 
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HH HHH HH HHH HHH HHH HH PROGRAM LISTI St He He HH HH HHH HH HHH HHH 


* This program provides display or printer output of the 


* assignments for a specific rank 
CLEAR 

DO window2 

STORE ‘ . JO Gr ane 


a o,22 SAY ‘LIST OF SCHEDULED ASSIGNMENTS PGR. THE ~ 

ad 6,23 SAY ’° REGUESTED RANE IS GOING TO BE FRINT “ 

ga 14,23 SAY “ SPECIFY RANE ==.’ GET trank, 
eR eisis “ees 

READ 

a°t4,235 SAYS” : 

a 8,23 SAY “ AUXILIARY FILE REQUIRED’ 

a 97,23 SAY ° FOR THE PROCESSING 15 BEING ete 

ga 10,23 SAY ° WALT \-<- a stetesoceroueee f 

SEE 1 

USE officer INDEX officer 

Sa Sb) & 

USE serves INDEX serves 

Seeeein. 

USE auxfile 

SEEEPECT go 

USE userid 

Seeertt 6 

USE userlog 

SELECT 4 

USE assigned INDEX assigned 


DO WHILE .NOT. EOF () 


IF rank = trank 
STORE. ‘ TO tname 
STORE : TO tsunit,tdunit 
STORE” ‘ “ TQ taduey = 
STORE serno TO tserno 


STORE unitname TO tdunit 

STORE asgndate TO tdate 

SELECT. 4 

FIND &tserno 

STORE name TO tname 

SERPEET 2 

FIND %tserno 

STORE unitname TO tsunit 

SELEE is 

APFEND BLANE: 

REPLACE serno WITH tserno,rank WITH trank,, 
name WITH tname,unitid WITH tsunit,dunit WITH tdunit,, 
date WITH tdate,duty WITH tduty 

ENDIF 


Lio 


SELECT 4 
SKE IF 
ENDDO 


2 8,4f SAY ‘READY’ 
SEGECT 3 
STORE ’ ’ TQ answer: 
a 14,23 SAY ’ FRINTER OUTPUT? (Y/N) ==>’ GET answer. 
READ 
IF UPFERCanswer) = ‘’Y° 
a 14,23 SAY ’ : 
el2,2o SAY * SWITCH ON YOUR PRINTER’ 
SET FRINT ON 
elo, 25> SAY * HIT ANY KEY TO CONTINUE’ 
SET CONSOLE OFF 
WAIT 
SET CONSOLE ON 
ENDIF 
CLEAR 
REPORT FORM mklistl 
IF UPFERCanswer) = ‘Y’ 
set FRINT OFF 
ENDIF 
GO TOP 
DELETE NEXT S300 
PACE. 
Seeectl! 3S 
LOCATE FOR password = UFFER (psw) 
SeeEeet & 
APPEND BLANK 
REPLACE username WITH E-Susername, task WITH ‘LIST # 17,, 
progname WITH ‘’LIST1’, logdate WITH DATE(),, 
logtime WITH TIME () 
CLOSE DATABASES 
RETURN 


HE HE TE HH HE EH HEH HH PROGRAM LIST2 SH HH HH HH HE HH HH HH HH HE 


* This program provides display or printer output of the 


% officers serving in a specific unit 

CLEAR 

DO window2 

STGRE ” -~ (OG stumat 

® 9,25 SAY ~ LIST OF GPFICERS SERV FS i) A” 

ad 6,23 SAY ’ SPEGIFIC UNIT 15 GOING 18 eee. lhl 
ga 14,23 SAY “ SPECIFY UNIT ==2+’"5GET tunit 

READ ; 

®@ 14,23 SAY ’ ; 


2 8,23 SAY ’ AUXILIARY FILE REQUIRED’ 
2 9,23 SAY ’ FOR THE PROCESSING IS BEING BUILT ’ 
2 19,23 SAY ’ WADI oe ee a : 


USE officer INDEX officer ALIAS lookup 
SJsh i & 

USE auxfile 

SEEEGT Ss 

USE userid 

SELECT 6 

USE userlog 

SELLER 3 

USE serves INDEX serves 

SET RELATION TO serno INTO lookup 


DO WHILE .NOT. EOF () 
IF unitname = tunit 
SEBEeT . 2 
APPEND BLANE 
REPLACE serno WITH C-+serno,rank WITH lookup-*#rank,, 
name WITH lookup-sname,unitid WITH C-sunitname,, 
date WITH C-rvenroldate,duty WITH C--duty 
ENDIF 


SELECT => 
oii 
ENDDO 


a 8,4f SAY ‘READY’ 


SELECT ae 

STORE ’ ’ TO answer 

a 14,23 SAY ’ FRINTER OUTPUT? (Y/N) ==2’ GET answer 
READ 





IF UPPER (answer) = ‘Y’ 
O94, 23 SAY ‘ 


Pete ,.3 SAVY’ SWITCH ON YOUR PRINTER’ 
SET FRINT ON 
Del 5.25 SAY * HIT ANY KEY TO CONTINUE’ 
SET CONSOLE OFF 
WAIT 
SET CONSOLE ON 
ENDIF 
CLEAR 
REPORT FORM mklist2 
IF URFFER Canswer) = ‘Y’ 
SET FRINT OFF 
ENDIF 
GO TOF 
DELETE NEXT SOO 
PACE. 
Seeeel o 
LOCATE FOR password = UPFER (psw) 
Sewect & 


APPEND BLANK 

REPLACE username WITH E-susername, task WITH ‘LIST # 2’,, 
progname WITH ‘’LIST2’, logdate WITH DATE(),, 
logtime WITH TIME () 

CLOSE DATABASES 

RETURN 


Se Me HE SHE SE SEE HE HE HE EE HE HE HE PROGRAM LIST3 SH HS HH EE EE EE HE Ee Et 


* This program provides display or printer output of the 


* Artillery officers in some requested order 


CLEAR 
DO windows 
STORE O TO order 


a) Seosesay LIST OF OFFICERS’ 

9 6,23 SAY ’ IN SOME ORDER IS GOING TO BE PRINT’ 

9 8,23 SAY ° POSSIBLE ORDERS’ 

9 9,23 SAY ° SENIORITY (RANK):....-..-+.---- 1/ 

9 10,23 SAY ° ALPHABETICAL:.........-.2s0e05 2? 

9 11,23 SAY ° SPEEUADTY:...- 255.0). eee 3° 

4 12,23 SAY ’ RANK + ALPHABETICAL:.........- q! 

@ 14,23 SAY * SPECIFY ORDER ==>’ GET order, 
PICTURE ‘9’ RANGE 1,49 

READ 

a 5,23 SAY ’ AUXILIARY FILE REQUIRED’ 

® 6,23 SAY ’ FOR THE PROCESSING IS BEING BUILT ’ 

pyr fe). als ya? WAIT ose ¢ 

a2 9,23 SAY ’ ‘ 

a 10,23 SAY ‘ 

& 11,23 SAY ’ ‘ 

&@ 12,23 SAY ° ¢ 

@ 14,23 SAY ’ ‘ 


USE serves INDEX serves ALIAS lookup 

SEEEET.2 

USE auxfile 

SELECT +4 

USE userid 

SELEET ea 

USE userlog 

SELECT 3 

USE officer INDEX officer ,names,ospecial ,compound 


DO CASE 
CASE order = 1 
SET INDEX TO officer 
CASE order = 2 
SET INDEX TO names 
CASE order = 3 
SET INDEX TO ospecial 
CASE order = 4 
SET INDEX TO compound 
ENDCASE 


SET RELATION TO serno INTO lookup 


1°4 


a 


BO WHILE . NOW. EOF () 
Seiel fT 2 
AFPEND BLANE. 
REPLACE rank WITH C-erank,name WITH C-sname,, 
source WITH C-*source,specialty WITH C-2specialty,, 
unitid WITH lookup-funitname,marstat WITH C->marstat 
SELECT 3 
o- IP 
ENDDO 


a 8,4r SAY ‘READY’ 


Select, = 
STORE ’ ’ TO answer 
2a 14,23 SAY ° FRINTER OUTPUTS (Y/N) ==2’ GET answer - 
READ 
IF UFPERCanswer) = ‘Y’% 
go 14,23 SAY ’ d 
@eie,23> SAY ° SWITCH ON YOUR PRINTER’ 
SET FRINT ON 
a 13,23 SAY ’ HIT ANY FEY TO CONTINUE’ 
SET CONSOLE OFF 
WAIT 
SET CONSOLE ON 
ENDIF 
CLEAR 


REPORT FORM mklist3 


IF UPPER Canswer) = ‘Y’ 
SET PRINT OFF 
ENDIF 


GO TOP 
PemelEe NEXT 300 
PACK 


SELECT 4 

LOCATE FOR password = UFFER(psw) 

Seeee! & 

APPEND BLANE 

REPLACE username WITH D-susername, task WITH ‘LIST # 3’,, 
progname WITH ‘’LIST3’, logdate WITH DATE(),, 
logtime WITH TIME() 

CLOSE DATABASES 

RETURN 


He He Hee HH HH HH HK HHH H HHH PROGRAM LIST4 He MH HK HHH HHH HEH HHKHKKKHHEH 


* This program provides display or printer output of the 
* Artillery officers of some requested rank 


CLEAR 
DO window? 
STORE ’ ‘ TO trank 


ao Se2enSeay- * LIST OF OFFICERS SReoehe” 
@ 6,23 SAY ‘’REQUESTED RANK IS GOING TO BE PRINT’ 
@ 14,23 SAY ° . SPECIFY RANK ==;° GET trank FICTURBRGa. 


@ 5,23 SAY * AUXILIARY FILE REQUIRED ’ 
2 6,23 SAY ’ FOR THE PROCESSING IS BEING BUILT ’ 
»23 SAY ’ WAIT <2 ee. < , 


USE serves INDEX serves ALIAS lookup 
SELEGT <2 

USE auxfile 

SEEEGT, 4 

USE userid 

SELECT cS 

USE userlog 

SELECT. 3 

USE officer INDEX officer 

SET RELATION TO serno INTO lookup 


DO WHILE .NOT. EOF () 
IF rank = trank 

SeeEeth 2 

APFEND BLANE 

REPLACE rank WITH C-srank,name WITH C-+name,, 
source WITH C-*source,specialty WITH C--sspecialty,, 
unitid WITH Llookup—-funitname,marstat WITH C-emarstat 
ENDIF 


SS 5 
SEIF 
ENDDO 


a 8,4f SAY ‘READY’ 


SZ eae = 

STORE ’ ’ TO answer 

a 14,23 SAV FRINTER OUTFUT? (Y/N) ==>’ GET answer 
READ 


ne 


IF UPPER(answer) = ‘Y’ 
| 14,23 SAY * ’ 
pee ee SAY SWITCH ON YOUR FRINTER’ 

SET PRINT ON 
@ 13,23 SAY * HIT ANY KEY TO CONTINUE’ 
SET CONSOLE OFF 
WAIT 
SET CONSOLE ON 
ENDIF 


CLEAR 
REPORT FORM mklist4 


IF UPPER (Canswer-) = ‘Y’ 
SET PRINT OFF 
ENDIF 


Se Ver 
PEBeETE NEXT 300 
PACK 


SELECT 4 

LOCATE FOR rassword = UFPER (psw) 
Seeeel Ss 

APPEND BLANE 


REPLACE username WITH D-Susername, task WITH ‘LIST # 4’,, 


progname WITH ‘’LIST4’, logdate WITH DATE(),, 
logtime WITH TIME() 

CLOSE DATABASES 

RETURN 


pos 
~] 
~! 


He HH HM HH HH HH HHH KHH HHH PROGRAM LISTS HHH HH HHH HHH KHHKHHKHKHHHE 


* This program provides display or printer output of 
* the Artillery battalion commanders 


CLEAR 
DO window? 


®@ 3,23 SAY ’ LIST OF THE BATTALION COMMANDERS ” 
a 6,23 SAY * IS GOING TO BE FRING 

a 8,23 SAY ’ AUXILIARY FILE RE@GUIRED “ 

®@ 9,23 SAY ° FOR THE PROCESSING 15 EEMIGeetIe 
a O52 5 soon WALT Scie tsneroescene sae 4 


USE serves INDEX serves ALIAS lookup 
SELEET 42 

USE auxfile 

SELECT 4 

USE useid 

SELBET -o3 

USE userlog 

| ta 

USE officer INDEX officer 

SET RELATION TO serno INTO lookup 


DO WHILE .NOT. EOF () 
IF rank = ‘03’ 
IF lookup-esduty = ‘CDR “3 

SEREG Tes 

APPEND BLANE 

REPLACE rank WITH C-erank,name WITH C-sname,, 
source WITH C-*+source,, 
specialty WITH C-*specialty,, 
marstat WITH C-smarstat,serno WITH C-*serno 

REPLACE unitid WITH lookup--unitname,, 
date WITH lookup-?enroldate | 


ENDIF 

ENDIF 

SISQeGy 3S 

SK IF 
ENDDO 
®2 10,4Ff SAY ‘READY’ 
Seeee l = 
STORE ’ ’%’ TO answer: 
a 14,23 SAY = PFRINTER OUTPUT? (Y/N) ==>’ GET answer. 
READ 





IF UPFER(Canswer) = 
@ 14,23 SAY ’ 
gei2,23 SAY.” 
SET FRINT ON 
9 13,23 SAY ‘ 
SET CONSOLE OFF 
WAIT 
SET CONSOLE ON 

ENDIF 


CLEAR 


REFORT FORM mk1list3 


IF UPPER Canswer) = 
SET FRINT OFF 
ENDIF 


GO TOF 
DELETE NEXT 300 
PACE. 


SELECT 4 


LOCATE FOR password 


SEEECT 3S 
AFPEND BLANK . 


Ao ad 


SWITCH Uw YOUR FRINTER’ 


HIT ANY FEY TO CONTINUE’ 


Nee. 


= UPFER (psw) 


REPLACE username WITH D-susername, task ‘LIST # 3’,, 
progname WITH ‘LISTS’, logdate WITH DATE(),, 
logtime WITH TIME() 


CLOSE DATABASES 
RETURN 


HHH HE EE EEE EE EE EE PROGRAM LISTS He He Heh HHH HHH HHH HHH HE 


* This. program provides display or printer output for the 


% officers serving outside the Artillery Branch 
CLEAR 

DO window. 

a 5,23 SAVY °’ LIST GF OFFICERS SERMVING Oeil]. 
a 6,23 SAY “ THE BRANCH IS GOING TO BE PRINT’ 

a G,25 Say * AUXILIARY FILE REQUIRED ’ 

a 9,23 SAY ’ FOR THE FROCESSING IS BEING BUILT ” 
ag 10,23 SAy ~* Gl TT 3 se scerere a) see 

USE serves INDEX serves ALIAS lookup 

SEEBET 2 

USE auxfile 

SEEBET 4 

USE userid 

SeEEEET SS 

USE userlog 

SEL EE tS 


USE oatfticer INDEX officer 
SET RELATION TO serno INTO lookup 


DO WHILE .NOT. EOF () 
IF lLookup-funitname = ‘OAR 
SELEET 2 
APPEND BLANE. 
REPLACE rank WITH C-trank,name WITH C-sname,, 
source WITH C-*source,specialty WITH C-*specialty,, 
marstat WITH C-?marstat,serno WITH C--serno 
REPLACE unitid WITH lookup-Sunitname,, 
date WITH lookup-fenroldate 
ENDIF 


4 


SELES 
SKIP 
ENDDO 


@ 10,4f SAY ‘READY’ 


Ss|SUS0) & 

STORE ’ ’ TO answer: 

a 14,23 SAY ’ PRINTER OUTPUT? (Y/N) ==>’ GET answer: 
READ 
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IF UFFER (answer) = ‘YY’ 
a 14,23 SAY “ 
®9 12,23 SAY “ SWITCH ON YOUR PRINTER’ 
SET FRINT ON 
2 13,23 SAY “ HIT ANY FEY TO CONTINUE’ 
SET CONSOLE OFF 
WAIT 
SET CONSOLE ON 
ENDIF 


CLEAR 
REPORT FORM mklist6 


IF UPFER (answer) = ‘Y’ 
SET FPRINT OFF ~- 
ENDIF 


Se Tr UP 
DELETE NEXT S00 
PACK 


SeIeCT 4 

LOCATE FOR password = UPPER (psw) 

Seeec! Ss 

APPEND BLANE 

REPLACE username WITH D-fusername, task WITH ‘LIST # 6’,, 
progname WITH ‘’LIST6’, logdate WITH DATE(}),, 
‘logtime WITH TIME () 


CLOSE DATABASES 
RETURN 
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HHH HHH HE HIE HE EH HE PROGRAM REPORTI1 HHH HHH HHH HHH HHH RHEE 


* This program provides display or printer output containing 
* all service data concerning a specific officer 


CLEAR 
DO window2 
STORE ’ ‘ TO tserno 


a2 3,22 SAY ‘SERVICE TIME REFER FOR ieee ee tSs Ten © 
a 6,23 SAY ° DFFICER IS SOING TO BeEVeRinT ~* 

a 14,23 SAY ° ENTER SERIAL # ==>’ GET tserno 
READ 

®@ 14,23 SAY ’ ‘ 


Seeee i. 

USE userid 

SELECT 4 

USE userlog 

Sys L/S Bp 

USE historic INDEX fRistoric 
SEE ei 

USE officer INDEX officer 
FIND &tserno 


IF .NOt. ear () 
STORE name TO tname 
STORE source TO tsource 
STORE specialty TO tspec 
STORE DATE() TO tdate 


SELEG Te: 
STORE ’ ’ TO answer 
a 14,23 SAY ’ FRINTER OUTPUT? (Y/N) ==: GET answer 
READ 
IF UFFER (answer) = ‘Y’ 
2 14,23 SAY ’ 4 
ad 12,235 "Say ’ SWITCH ON YOUR FRINTER’ 
a 13,23 SAY “ HIT ANY EEY TO CONTINUE’ 
SET CONSOLE OFF 
WAIT 


SET CONSOLE ON 
SET FRINT ON 
ENDIF 
CLEAR 
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ad ABD/HAGS DATE: ’,tdate 


= —— am cee yc ee es coe mm om cm se ee ee 


aad See eens SERVICE TIME REPORT ’ 
a SERIAL # :’,tserno, “NAME :7’%,tname 
ad S@UREE => Sesource,’ - SEECTALTY = .tspec 
ee 06©6lC«éDAATTE TRANSACTION RANE. UNIT ORDER 1D’ 
LIST transdate,transtype,rank,unit,orderid, 
FOR serno = tserno 

IF UPPER Canswer) = ‘Y’ 

SET FPRINT OFF 

SELECT 3 

LOCATE FOR password = UFFER (psw) 

SELECT 4 


APPEND BLANK 
REPLACE username WITH C-susername,, 
task WITH ’REFORT # 1°,, 
progname WITH ’REPORTI’, logdate WITH DATE(},, 
logtime WITH TIME () 
ENDIF 


ELSE 
® 14,23 SAY “OFFICER DOES NOT EXIST IN DATABASE’ 
DO delay 
ENDIF 


CLOSE DATABASES 
RETURN 
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HH MH HHH HHH HHH EHH HEH PROGRAM REPORT2 HH HHH HH HH HHH HHH EESE 


* This program provides display or printer output 


% concerning the status of a Specific officer 
CLEAR 

DO window? 

SMWine ° ‘ TO tserno 

a 3,25 SAY ’ STATUS REPORT FOR THE Bee ote.” 

a 6,23 SAY “ OFFICER IS GOING TO BE Fay ’ 

a 14,23 SAY “ ENTER SERIAL # ==27’ GET tserno 
READ 


4 14,23 SAY ’ ‘ 
STORE DATE() TO tdate 


USE serves INDEX serves ALIAS lookup 
SEEBET. 2 

USE officer INDEX officer 

SET RELATION TO serno INTO lookup 
FIND &tserno 


IF .NOT. EOF () 
STORE ’% ’ TO answer: 
® 14,23 SAY “ PRINTER OUTPUT? (Y/N) ==>’ GET answer 
READ 


IF UPPER (answer) = ‘Y’% 
a 14,23 SAY “ ; 
® 12,23 SAY “” SWITCH ON YOUR PRINTER’ 
SET FRINT ON 
oD boe 2a. SAY 7 HIT ANY KEY TO CONTINUE’ 
SEP eeCehlSe2] err 
WAIT 
SET CONSOLE ON 
ENDIF 


CLEAR 
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ad ABD/HAGS DATE: ’,tdate 
iad SPE Tee woe onanes REPORT 7 
a NAME > ’, Name 
aad SERIAL NUMBER : ’, serno 
a RANE, 27, rank 
<i NOMINATION YEAR: ’, nomyear 
aa SOURCE : ’, source 
:” SPECIALTY : “, specialty 
a’ MARITAL STATUS =: “, marstat 
i CHILDREN >: °, children 
E- WORE ING WIFE : ’, workwife 
fo.” ORIGIN ear Gee. aeortgcounty 
ae UNIT > ’, lookup-sunitname 
ae ENROLMENT DATE : ’, lookup-senroldate 
mT DUTY - . lookasg— duty 
IF UPFFER (answer) = ‘Y’ 
Se FRINT OFF 
=a Doe @ a 
SELECT 3 
USE userid 
LOCATE FOR password = UFFER (psw) 
SELECT 4 
USE userlog 
APPEND BLANE 
REPLACE username WITH C-tusername,, 
task WITH ’REPORT # 27’,, 
progname WITH ’REFORT2’ ,logdate WITH DATE(}),, 
logtime WITH TIME()} 
SESE 
a 14,23 SAY ‘OFFICER DOES NOT EXIST IN DATABASE ’ 
DO delay 
ENDIF 


CLOSE DATABASES 
RETURN 
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F. MISCELLANEOUS PROGRAMS 


HHH HHH HHH HH HH HEHEHE PROGRAM GRFLAG HHH HHH HH HH HH HH HH HHH 
* This program displays on the screen the Hellenic Flag 


SET COLOR TO W+ 

CLEAR 

STORE ’ ‘’ TO blanki 

STORE = ’ TO blank? 
STeGRE “ ‘ TO blanks 
STORE f TO r 

STORE. 2S 16 Cc 

7,18 GET blanki 

f,24 Gel blank! 

8,18 GET blanki 

8,24 GET blanki 

10,18 GET bBblanki 

190,24 GET blanki 

11,18 GET blanki 

11,24 GET blanki 


BOHOHNHH WH & & 


DO WHILE r < 13 
ae,c GET blank3 
STORE rt+2 TO r 

ENDDO 


STGRE 1S 7i@e 
DO WHILE r < if 
® 2.6 GE Slankz 
STGRE 52 e r 
ENDDO 
SET COLOR TO W 
RETURN 


EH HHH HH HHH HHH HEHEHE PROGRAM DELAY KH KH HHA ERK EHH KH HHH HHHE 


* This program provides a small delay necessary for displaying 
* various program messages on the screen 
STORE © TO & 


DO WHILE k& < 40 
STORE wee 

ENDDO 

RETURN 
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Ke Hee HH HHH HH KKH HEHE PROGRAM DBSTITLE Fs See tee tics ta te Din dca tics tica dete Sica Seen thea tte tte Decades Dea dire tes? 


* TRIs program displays on the screen the title of our 

oe database system 

CLEAR 

a 8,18 SAY 7% IMNMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM MMM MMMMMMMM , ’ 
fez, iS SAY ‘: HAGS/ARTILLERY BRANCH DIRECTORATE rae 
amrO,168 SAY ‘: MMM MMMM MMMM MM he hh Mh ei ei a MM Meio 2% 
Geert, i SAY °s iat 
geet e,18 SAY ’: a 
fei, iB SAY ’: ao 
2 14,18 SAY °: MMM MM MMM MMM MMM am 
a 15,18 SAY °%: a 
a 16,18 SAY °: HIT ANY KEY TO CONTINUE rae 
a 17,18 SAY “HMMMMMMMMMMMMMMMMMMMMM MMMM MMMM MMMM MMM MMMMMMM< ” 


SET COLOR TO W+ 

aii1,28 SAY “FERSONNEL DATABASE SYSTEM’ 

a i2,2s SAY “FOR PROCESSING THE ANNUAL ASSIGNMENTS’ 
eee SAY “OF THE OFFICERS’ 

oe?) COLOR TO W 

SeeCONSOLE OFF 

WAIT 

SET CONSOLE ON 

RETURN 


er 


HH HHH HH EH HE EE HE HE EH HEE PROGRAM MFRAME HH HHH HEH EE HHH HH HHH 


* This program displays a frame on the left half of the screen 


AOOBGBVBHBHHDHKBHHKHDHKHBHHWN 
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Mm 
a} 


ee oe oe 
OHpE WhIK DOO WIeFAPWhH Dd 
AHA AA HA HAHAPA HA Hf 
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SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 


ty 
4 e« 
s 
4a 
a 
es 
s 
4a 
a 
a 
a 
a 
s 
4 a 
a 
fe 
es 


es 
4 a 
a 
4 a 
s 
fe 
a 
4 a 
a 
s 
s 
fie 
a 
4a 
s 
foe 


“H 


MMM MMMM MMM MMM MMMM MMMM MMMM MMMM, 


Ge ee ge ad ee ee es ea ee ae ae ee os @# 


MMM MMMM MMMM MMM MMMM MMM MMM MMMM MMM” 
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Se ee ee ee ee ee ee PROGRAM FRAME So in tn en Sn De es ie Mes tee ee ten a ee en ee ee Dn ee Te Deca Ee a 
* This program displays a small frame on the screen 


8,43 SAY *IMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM , / 
9,43 SAY ’: NEW RECORD IN HISTORIC FILE : 
10,43 SAY “:  MMMMMMMMMMMMMMMMMMMMMMMMMMM — = / 
11,43 SAY °: :/ 
45 SAY ‘: 

13,43 SAY ’: / 
14,43 SAY ‘: 

ma 43 SAY *: 
16,43 SAY ’: | 
17,43 SAY “HMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM< / 

ETURN 


88 se Sa 
~ 


4, 


Ae Oeo Oe & &) 4 


HHH HHH HHH HH HHH HH EHH PROGRAM WINDOW Fe EH EH RR EH 


*% displays a frame on the screen into which messages for the 
user are placed informing him about the processing 


" 


CLEAR 

2 4,20 SAY *IMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM  / 
@ 5,20 SAY ’: TEMPORARY FILES FOR THE 27 
2 6,20 SAY ’: ASSIGNMENT FROCESSING ARE BEING BUILT :7 
a 7,20 SAY °°: MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM ss / 
@ 8,20 SAY ’: 2 
2 9,20 SAY ’: 2 
@ 10,20 SAY °: 2 
2 11,20 SAY °: 2 
§ 12,20 SAY ’: 2 
92 13,20 SAY ’: 2 
9 14,20 SAY ’: 2 
2 15,20 SAY “HMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM- / 
RETURN 


ee ee PROGRAM WINDOW1 Te ee 


* This program displays a window on the screen 


Cc 

2 4,18 SAY ¢IMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM, ’ 
25,18 SAY ’ : 
a 6,18 SAY ’ 
a 
a 
a 
R 


mole SAY “: ia 
Bele SAY “‘: ah 
9,18 SAY “HMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM= ’ 
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KH HHH HEHE KRHKKHRHKE PROGRAM WINDQW2 ee ee ee ee ee ee 


* This program displays a frame on the screen into which 
* messages for the user are placed 
* informing him about the processing 


CLEAR 

@ 4,20 SAY 7 IMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM, “ 
2 29,20 5onY =: 

a 6,20 SAY 7: 

a ¢ f,20 SAY “= MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM 
ga 8,20 SAY °: 

a 9,20 SAY %: 

a 10,20 SAY ‘“: 

a 11,20 SAY “°: 

a 12,26 SAY: 

a 13,29 SAY “%: 

a2 14,20 SAY “%: : 
2 15,20 SAY “HMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM=. ’ 
RETURN 


HH KKK EKKKEKEKEES PROGRAM WINDOW3 HRM K KH KKKKK KK KRKEKEKRHKEERS 


* This program displays on the screen the codes used By the 


* database system 

2 2,45 SAY “%IMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM , 
® 3,45 SAY ’: RANE. CODES ig 
® 4.435 SGV)’: |» »\ (see cuEeee = 
®2 3,45 SAY ':01=2nd Lieuten. O2=1st Lieuten.: ’ 
Ya 6,45 SAY ':903=Captain 0O4=Major ae 
a f,45 SAY ':04=Ltn. Colonel O6=Colonel ace 
a2 8,45 SAY °%: SOURCE CODES iad 
a 9F°,45 SAYS: 036 6©- 6S eee a 
g@ 10,45 SAY 7%: MA = Military Academy a 
a2 11,45 SAY “°: NCOS = Non—-Commi ssi oned aa 
a 12,45 SAY “%: Officers‘ School “ats 
a 13,45 SAY “%: SPECIALTY CODES San 
a 14,435 SOY °:) °° £§ =... jai eee —s 
®@ 15,45 SAY ’: C = Commanding T = Technitian :” 
®2 16,45 SAY ‘“%: A = Administrative af 
® 17,435 SAY: MARITAL STATUS CODES = 
®@ 19,45 SAY (Ree aa 
a 19,45 SAY ’: S = Single W = Widower :’ 
a 20,45 SAY ’: M = Married D = Divorced :’ 
@ 21,45 SAY “HMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM< ’ 
RETURN 


VEZ AS. 





G. SAMPLE LISTS AND REPORTS (DATABASE SYSTEM OUTPUT) 


Page No. if 
04/28/86 
ABD /HAGS 
LIST OF SCHEDULED ASSIGNMENTS FOR THE REQUESTED RANI 

SERIAL # RANK NAME FROM UNIT TO UNIT DUE PAE 
22 BGO O72 Zimbo Carl F GMB “12 FAB 5/7 1357/86 
Bear. O2 Zets Frank B AS iz HARB (5/15/86 
22355 O2 White Henry V 12 HAB 213 MHAB 08/15/86 
2302 On Topping Scott A GMB 122 FAB 08/15/84 
230350 On Sugai Steve D 122 FAB GME O57 15760 
ese > WE Flott Charles B GMB 211i FAB O37 1oS7eo 
23141 OZ Murphy Tom §& 25 208 1izZ FAB 08/15/86 
Soo? OZ Hondler Ronald F AS GMB 08/15/86 
aE) S ba On Otondo Jeff M GMB 25208 08/15/86 
FE VE ea O23 Weber Alex T z~1li FAB AS 5/157 386 
Zao 7 = Yeates Jim N “13 MHAB AS OS, 15786 
2a? 2 ORs Timar Gordon C 112 FAB 113 MHAB 08/15/86 
23405 O2 Taylor Leroy A 113 MHAB GMB 08/13/35 
Z25e7 OZ Amason Frank L z=12 FAB GMB 08/15/86 
23849 (Cy Fowers Albert G 111 FAB OAB 08/15/86 
23864 OF Kilgore Michael F OAB 111 FAB Wa/ 15786 
23890 O22 Ratt Bruno §- DAB OAB Me/1S/a86 
24007 OZ Jeronomo Mike W i121 FAB 22 HARB ie 1a7S6 
24023 oO Johnson Mark J 22 HAB <12 FAB 08/15/86 
24046 ea Davidson Jack B =12 FAB 122 FAB 08/13/7836 
24061 O2 Fallis John M 122 FAB 121 FAB @38/137386 
24156 O2 Linhard Harry C =11 FAB 21 FA/AB O8/135/84 
“2417S O2 Voris John D 21 FA/AB 211 FAB 08/15/86 
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Page No. 1 
04/28/86 
ABD/HAGS 


em em cm cm ee ee me ee ee ee ce ee ee ee ee 
mm re ee ee rm ee em mm ere ere mm em ee em cm we ee ec ee ee 


RANK SERIAL# NAME UNIT DUTY ENROL. DATE 
OR =O0060 Morris Robert G ARTC CDR 05/05/35 
O06 20178 Adams Edward B ARTC DEPUTY CDR O5/22/85 
Oke 20273 Anzini Daniel D ARTC FAASS OFf/26/B4 
OS 20300 Lipori Gerald A ARTC TAB/CDR OT/18/84 
aha ZOao 1 McRae James R ARTC TAB/CDR Or/12/84 
8 ps ZOOS S 1 Nicely Marvin L ARTC TAB/CDR OF /20/85 
O4 ial a) Russo James D ARTC G2 08/18/85 
04 2O9 2a Qualls Terry D ARTC G3 Or / 23s 
O4 20948 Miller Jacj T ARTC G1 OT /28/35 
O4 ai ise Krupski Joseph K ARTC HSB/CDR Or /20/B83 
O4 =1249 Rogers Alex B ARTC TCAO 08/25/85 
O3 212389 Mallon FPatrick F ARTC B/CDR 08/27/84 
os 21423 Trend Ted M ARTC B/CDR 08/30/84 
O35 21492 Aston John S&S ARTC B/CDR 08/29/84 
O3 21562 Salvo John H ARTC B/CDR 08/31/84 
O3 £1622 Ryan Peter G ARTC B/CDR 08/26/82 
O3 21689 Papas Chris J ARTC B/CDR OB/2°/B4 
On ean Tie a Strouzas John G ARTC B/CDR 08/30/84 
O3 21903 Solomos James D ARTC B/CDR 08/29/84 
O3 21956 Sercia John M ARTC B/CDR 08/31/85 
GA 24402 Lucas Mike T ARTC F/CDR 08 /@GiwaS 
Q1 24405 Williby Richard F ARTCC F/CDR 08/01/85 
G1 24423 Grace Bob - ARTC FP/CDR 08 /OR7ae 
On 24426 Stetson Jeff C ARTC F/CDR 08/01/85 
O1 24436 Nagal David A ARTC P/CDR 08/01/85 
Gi 24441 Dunlop Tom S ARTC P/CDR 08/01/85 
O1 24458 Eohn Daniel P ARTC F/CDR 08/01/85 
O1 24459 EFakin William F ARTC F/CDR 08/01/85 
O1 24472 Clanin John V ARTC F/CDR 08/01/85 
O1 24473 Henderson Lester N ARTC F/CDR 08/01/85 
ye 24491 Lubin Fatrick H ARTC F/CDR 08/01/85 
O1 24495 Naef George J ARTC F/CDR 08/01/85 
O1 24786 Monsen Harry § ARTC MO 08/25/84 
OT 24832 Mixter Jason E- ARTC MO 08/30/85 
O1 24847 Townsend Jeff P ARTC MO 08 / 28734 
Ol =4851 Lucky Thomas S ARTC FAO 08/29/83 
Gal 24929 Knubis James P ARTC FAD OB/29/84 
O1 2a0%S Cline William R ARTC FAD 08/30/85 


Loe 


Ee 


Fage No. 1 
04/28/86 
ABD/HAGS 


iii iii ee On eee 
— cee ec cc ec ce ce ee ee 


RANE NAME SOURCE SFECIALTY UNIT-NAME MARITAL ST. 
O2 ABbigil Frank F MA i GME = 
O1 Abston Mike R MA S =12 FAB = 
O1 Acevedo William D MA C 113 MHAB S 
Od Adams Edward B MA e ARTC iM 
O35 Adcok Jery T MA C =1 FA/AB iM 
O4 Alders Edward RFR MA C OAB M 
= Allen Douglas W NCOS a 223 MHAB M 
O03 Allen Kirk R MA 5. <<1 FAB = 
Ol Alonso Jack WN NCOS T 25 058 M 
= Amason Frank L MA C <1 FAB M 
O03 Amman George D MA Bi AS M 
O1 Anasini George 5 MA EG 112 FAB 2 
Oe Anderson Moore J MA C =<{2il FAB = 
OZ Aney John T MA ec oa [Dl e: ea 
O73 Annelo Fhilip R MA C 122 FAB ™ 
OT Anton John T : MA C OAB M 
O06 Anway James FR MA S OAB M 
OS Anzini Daniel D MA C ARTC M 
O4 Appel John G MA C WC ™ 
O3 Arima James J MA C GMB M 
OS Ariss Bruce F MA C AS S 
O4 Armout Paul G MA ‘ = HAB m 
O04 Armstrong David § MA C WC M 
O04 Arnal Robert J MA C OAB mM 
OS Arnold Michael C MA C 21 SAB M 
OS Arundel Mike A NCOS a i 113 MHAB D 
O3 Aston John § MA C ARTC M 
3 Atkins Robert H MA C 121 FAB M 
O4 Auburn James F MA C 111 FAB My 
5 | Austin Dick B MA C AS S 
ys) Avery Adam 5 MA & =2i FAB M 
O1 Axelrod Jack Z NCOS S 111 FAB Ss 
O3 Babbit Almon FP MA C Zee aAs M 
O3 Baer Dan F NCOS C OAB M 
OS Balum Duglas N MA G =1l FA/AB ™ 
O3 Beam Alan FE MA cj 112 FAB M 
D5 Beaty Jackson L MA C 122 FAB 5 
OS Bell Richard kK MA C OAB M 
O4 Benison Michael J MA C OAB M 
Or Billeb James W MA C OAB M 
O04 Biondi Daniel M MA C cow MHAR Md 


Page No. 1 
04/28/86 ° 
ABD/HAGS 


ee mee ee 


RANE NAME SOURCE SFECIALTY MARITAL ST. UNIT-NAME 
OD Knight Allen S&S MA C Mm OAR 

aS Klose Edwin A MA C M DAB 

OS Nakata Isaac E . MA C M GMB 

OS Franklin Adams P MA C rt ABD/HAGS 
OS Cabral David T MA C M CAB 

Os Bell Richard K MA C M OAB 

OS ANZzini Daniel D MA C M ARTC 

Os Ariss Bruce F MA C Ss) AS 

OS Gray Joseph W MA es M OAB 

OS Jarecki Edward L MA C M ABD/HAGS 
OS Harvey Steeve B MA C N OAR 

03 Carl Michael S&S MA C N 22 HAB 
OS Lipori Gerald A MA C D ARTC 

0 ast Naylor Stephen 6G MA eS M 121 FAB 
OF Wurtz Thomas D MA C M OAR 

AS Yadon Robert J MA C M ABD/HAGS 
as Zeller Donald L MA C M OAB 

O35 Yee Kalvin B MA C S OAB 

QS Pleee Jette. MA C M 22 te 
OS Tranel James A MA C M AS 

OS Trotter Richard E MA C M 122 FAB 
Os Valentino John P MA = S OAR 

A> Urie Larry H MA co M AS 

OS Thoreson Alex G MA C Mm OAB 

0S Smith Steven G MA C Mm 113 MHAB 
OS Johnes Robert F MA c M 111 FAB 
AS Foleti Felix A MA C M 12 HAB 
OS Nash Thomas S MA = W OAB 

as McRae James R MA C Mm ARTC 

OS Goral George B MA C M =11 FAB 
os Drew Alan M MA C S OAB 

OS Cosio Frank L MA = M 213 MHARB 
OS Avery Adam S&S MA B M =>1 Eee 
OS Balum Duglas N MA & M =1 FA/ARB 
OS Jeffrey Harold D MA B M OAB 

OS Nicasio Michael F MA e M OAB 

OS Wagner Chris F MA & D ABD/HAGS 
OS Lippman Bill J MA & M OAR 

OS Jagoe Donald H MA Ee S 223 MHARB 
OS Grace Bruce FP MA C M 11 FA/AB 
OS Draper George R MA c M OAB 
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Fage No. 1 


04/28/86 
ABD/HAGS 
LIST OF THE ARTILLERY BATTALION COMMANDERS 

SERIAL # RANE NAME UNIT ENROL.” DATE 
2O2ZTDS OS Nakata Isaac E GMB OT/i9/84 
20294 OS Carl Michael S == HARB OT/145/85 
20505 OD Naylor Stephen G h21 FAB OF Lives 
2OS5 2 OS Plott Jeff C 222 FAB O7T/24/84 
20343 ra) Trotter Richard E— 122 FAB OFT /13/B4 
20365 Oa Smith Steven G 113 MHAs OF /22/84 
2OBR6 rar) Johnes Robert FPF 111 FAB OF/21/84 
20379 OS Foleti Felix A 12 HAB OP /23/B84 
2OR7 2 OS Goral George B <11 FAB OT /22/04 
20403 OD Cosio Frank L 213 MHAB OVT/1B/34 
29408 OD Avery Adam S& 22l FAB OFT/17T/564 
20412 OS Ralum Duglas N zl FA/AB OPT /2:3/84 
2ZO449 OD Jagoe Donald H 223 MHAB OR aia. Sra 
204355 OS Grace Bruce FP 11 FA/AB Oy / ee, oe 
~O4TS OS Johnson Mark L 123 MHAB O7/18/85 
20495 OD Arnold Michael C 212 FAB Ors etreed 
ZOQOO OS Knapp Thomas L 1i2 FAB Be Be ra 
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Page No. 1 
04/28/86 
ABD/HAGS 


RANE: SERIAL # NAME UNIT ENROL. DATE 
OT 2OOtT Calaunan Tend G OAR O5 /20768s 
OT 290019 Billeb James W OAB O35 / 1 S728 
OF 20020 Anton John T OAB 05/18/85 
Or BOOS 1 Magnelli Harold P OAB 35 / 257 e8 
Or 2OO06F Prevat Randy FE OAB 05/12/85 
O& 20081 Horton Alex B OAR 06/01/85 
OG 20088 Gordan Michael A OAB 06/10/83 
O6 20057 Nickel George W OAR 06/20/85 
O6 aD 1 OS, Wapper Alfred D OAB 96/18/85 
O6 201 21 Anway James R OAB O96/12/85 
O6 ZO1LS1 McNett John R OAB 06/21/85 
OS 20173 Colvin Edgar A OAB 06/15/85 
O6 2OLIS Wright Richard T OAB 06/17/84 
OG 2O196 Yancy Roy J OAB 06/12/84 
O& 20208 Luk William P OAB 06/17/84 
OS 20217 Lacy David A OAB 06/18/84 
OS ZO 226 Plantz Joe M OAB 06/19/84 
OS 2OS4o Enight Allen §& OAB OT/12/84 
OS 20248 Klose Edwin A OAB Or/1is7ee 
OS Pal OL a he Cabral David T OAB OT/27°/B84 
OS 202 7C Bell Richard K- OAB Of /13/84 
OS el 0 EATS Gray Joseph W OAB OT /1SB7es 
sa) 20259 Harvey Steeve B OAR OF/710/84 
OF 20318 Wurtz Thomas D OAB OT /layae 
OS 2O 324 Zeller Donald L OAB 07/10/85 
OS 20329 Yee Kalvin B OAB OT /207 8a 
ao 2 sa Valentino John P OAB O7/19/B85 
OS 20360 Thoreson Alex G OAB O7/09/8B5 
OS 20382 Nash Thomas S OAB O7T/16/84 
OS EOS9F Drew Alan M OAB Of /13/a4 
OS 2O471 Jeffrey Harold D OAB OT/1i7ae 
OS 20427 Nicasio Michael F OAB OT /20/84 
OS 20442 Lippman Bill J OAB O7/08/85 
OD 20468 Draper George R OAB Or/1O7ee 
OS 20483 Cook William K- OAB OT /06/85 
OS RAG ON Kasper James FE. OAB O7/10/B85 
OS Z20n19 Eennedy John 3 OAB OT /O37 aa 
O04 20006 Lucky Thomas N OAB 08/20/84 
O4 208 70 Benison Michael J OAB 08/23/84 
O4 20562 Alders Edward R OAB 08/18/84 
O04 20596 Arnal Robert J OAB 08/21/84 
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Page No. 
04/28/86 
ABD/HAGS 


RANE: SERIAL # NAME UNIT ENROL. DATE 
O4 20607 Durbin James C OAR 08/16/84 
O04 20617 Kaseman Timothy A OAB O8/12/8B4 
O44 =“OG641 Holste Robert W OAB 08/24/85 
04 206355 Nagano Patrick F- OAB 08/28/84 
O4 229666 Combie Edward PF OAB OGY 297 ea 
04 2O67O Saleh William R CAB O8/22/84 
04 20685 Wyler Bill A OAB 04/26/85 
04 20697 Trapl Mark W OAB O87 26799 
O04 20715 Scilk Alan B OAB OS7 2t7aa 
4 os OTR Ra es Scott Kalvin D OAB 08/26/85 
O4 LOTS: Hoss Jack C OAB 08/28/84 
O4 2OT2EB Goodrich John A OAR 98/27/84 
Q4 2O7 34 Tally Chris §& OAB 08/27/84 
O4 20736 Concon Stephen J OAB O8/i17/8s 
O4 2OT 49 Emerson Burt F OAB 08/24/84 
O4 2OTSS Jefferson Jack L OAB 08/25/84 
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ABD/HAGS 


07/25/64 
08/02/64 
08/01/65 
08/12/66 
OT/26/6F 
08/22/70 
G7 2e 7 as 
08/25/74 
08/01/77 
Q8/28/77T 
OB/O1/79 
O77 25/80 
05/18/81 
OG/23/e42 
06722 fem 
04/20/86 


DATE: 04/28/86 


SERIAL # : 
SOURCE : MA 


TRANSACTION 


NOMINATION 


ASSIGNMENT . 


ASSIGNMENT 
ASS IGNMENT 
PROMOTION 
ASS IGNMENT 
FROMOT ION 
ASS IGNMENT 
PROMOTION 
ASS IGNMENT 
ASS IGNMENT 
ASS IGNMENT 
PROMOTION 
ASS IGNMENT 
ASS IGNMENT 
PROMOTION 


RANK. 


20204 NAME : Wechsler Thomas J 


SEC TAL vee 


UNIT 


AS 

ARTC 

111 FAB 
111 FAB 
22-3 MHAB 
wa MHAB 
12 MHAB 
12 HAB 
13 O8 

WC 

AC/11 ID 
AC/11 ID 
=1 FA/AB 
ABD/HAGS 
ABD/HAGS 


oe 


ORDER ID 


F.440/11/HAGS 

F.400/23/ABD/HAGS 
F.400/46/ABD/HAGS 
F.400/32/ABD/HAGS 
F.440/41/ABD/HAGS 
F.400/34/ABD/HAGS 
F.440/33/HAGS 

F.400/44/ABD/HAGS 
F.440/22/HAGS 

F.400/41/ABD/H4GS 
F.333/20/ABD/HAGS 
F.400/21/ABD/HAGS 
F.440/46/HAGS 

F.400/24/ABD/HAGS 


F.400/13/ABD/HAGS © 


F.400/18/ABD/HAGS 


— 


DATE: 04/28/86 


ABD/HAGS 


ee ee ee 


NAME 

SERIAL NUMBER 
RANE 
NOMINATION YEAR 
SOURCE 
SFECIALTY 
MARITAL STATUS 
CHILDREN 
WORKING WIFE 
ORIGIN 

UNIT 

ENROLMENT DATE 
DUTY 
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Trotter Richard E 
20343 

OS 

&& 

MA 

eo 


M 


.F. 
city19 
122 FAB 
O7/13/84 
CDR 


s countylo 
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